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1.0  SUMMARY 
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The  summary  elements  of  this  report  consist  of  a digest,  which  follows 
in  section  1.1  and  the  following  elements  which  appear  in  appendices:  an 
outline  of  contract  objectives,  a cummulative  chronological  narrative  of 
progress  during  the  duration  of  the  contract,  a list  of  personnel  who  worked 
on  the  contract,  a list  of  scientific  talks  and  a list  of  publications. 
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l.i  DIGEST 


In  this  paper  we  present  a simulation  of  plasma  transport  of  e,  H and  0 
along  a flux  tube  of  the  earth's  magnetic  dipole  field,  shown  in  Figure  1. 

Heat  and  particle  flux,  and  temperature  and  density  are  simulated,  based  on 
realistic  geophysical  parameters  at  all  times,  and  at  each  point  of  the  flux 
tube. 

The  model  includes  a solution  of  the  primary  electron  and  ion  production 
rates,  the  2 stream  photoelectron  equations,  ion  and  electron  energy  and  oxygen 
and  hydrogen  ion  density  equations. 

Figure  2 displays  the  interrelationships  of  the  various  components  of  the 
model.  Control  parameters  (day,  time,  longitude,  etc.)  are  used  to  set  up  the 
solution  grid  and  determine  gravity,  magnetic  field  strength  and  various  other 
parameters  at  each  grid  point.  The  neutral  atmospheric  densities  and  temperature 
are  then  determined.  This  is  followed  by  the  calculation  of  the  primary  ionization 
and  photoelectron  production  rates.  From  the  primary  photoelectron  distribution 
the  2 stream  equations  provide  the  final  photoelectron  distribution  including 
transport,  and  the  thermal  electron  heating  rate  which  is  needed  in  the  solution 
of  the  energy  equations  to  provide  the  electron  and  ion  temperatures.  Finally, 
the  ion  density  equations  are  solved  to  provide  0+  and  H+  densities  at  each 
grid  point  to  complete  the  procedure  for  the  time  step.  At  the  next  time  step, 
the  procedure  is  repeated  beginning  with  the  neutral  atmosphere. 

The  equations  are  solved  on  a spacially  varying  grid;  300  grid  points  being 
used  for  the  L ■ 3 field  line. 

The  Newton  iterative  technique  has  proved  to  be  a stable  and  economic  means 
of  solving  the  non-linear  parabolic  partial  differential  equations  of  density 
and  temperature.  The  method  is  stable  enough  that  time  steps  can  be  chosen  to 
fit  atmospheric  conditions,  i.e.,  stability  requirements  are  not  the  limiting 
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Solution  of  the  energy  equations  on  a non-uniform  spacial  grid  has  been 
accomplished  by  a coordinate  transformation  based  on  orthogonal  dipole  coordinates. 
The  equations  are  then  converted  to  finite  difference  form  and  solved  for  the 
ion  and  electron  temperatures  using  the  Newton  method.  The  solution  is  straight- 
forward and  no  new  numerical  problems  were  experienced. 

On  the  other  hand,  the  solution  of  the  density  equations  proved  to  be  more 
difficult.  As  is  widely  known,  the  large  diffusion  coefficient  at  high  altitudes 
causes  numerical  instability  as  small  changes  in  density  generate  large  changes 
in  velocities.  Past  methods  of  overcoming  this  problem  involve  setting  artificial 
upper  boundary  conditions,  dividing  the  field  line  into  regions  and  using  different 

techniques  in  different  regions,  or  linearizing  the  equations. 

4.  + 

We  have  developed  a method  that  solves  the  coupled  0 and  H equations  in 
a consistent  manner  for  the  whole  field  line.  Our  method  of  solution  allows  us 
to  step  over  the  high  altitude  region  using  one  complete  step  whilst  maintaining 
the  same  basic  pattern  of  solution.  By  avoiding  the  high  altitude  region  we 
avoid  the  instability.  The  method  is  fully  explained  in  a paper  which  has  been 
submitted  to  the  Journal  of  Computational  Physics.  The  method  is  significantly 
faster  than  the  so  called  shooting  method. 

We  have  further  improved  the  speed  of  convergence  of  the  Newton  procedure 
by  employing  prediction  techniques.  The  prediction  has  the  additional  benefit 
of  producing  a near  simultaneous  solution  of  temperature  and  density  even  though 
a ping-pong  procedure  has  been  adopted.  The  prediction  provides  accurate 
densities  for  the  next  time  step  which  can  be  used  in  the  temperature  solution. 

A modified  steepest  descent  has  been  used  to  guard  against  the  possibility  of 
the  Newton  procedure  overshooting  the  correct  solution  and  producing  negative 
densities  in  the  process. 
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The  most  recent  formulation  of  the  transport  equations  has  been  used. 
The  code  therefore  constitutes  the  most  comprehensive  tool  for  modelling  the 


plasmasphere  reported  to  date. 


2.0  SCIENTIFIC  RESULTS 

2.1  Introduction 

Study  of  the  thermal  plasma  population  in  the  closed  field  line  region  of  the 
magnetosphere  has  grown  in  importance  in  recent  years  (see  review  by  Chappell, 
1975).  Not  only  is  there  a significant  interchange  of  plasma  between  the  iono- 
sphere and  plasmasphere,  but  the  thermal  plasma  has  also  been  found  to  affect 
the  energetic  particle  population  of  the  magnetosphere.  This  tight  coupling 
between  the  magnetosphere-ionosphere  system  via  hot  and  cold  plasma  has  an 
impact  on  energetic  particles  of  the  radiation  belts,  ring  current  particles 
and  the  plasma  sheet.  Although  the  broad  features  have  been  established 
(Carpenter  and  Smith,  1964)  a realistic  comprehensive  model  of  the  plasmasphere, 
however,  has  not  yet  been  developed. 

It  seems  clear  that  the  interchange  flow  processes  are  related  to  the 
shaping  of  the  plasmapause  and  light  ion  trough  features  (Chappell,  1975). 

The  global  morphology  of  the  plasmasphere  varies  strongly  with  magnetic  activity 
and  associated  electric  fields.  When  the  convection  electric  field  increases 
during  magnetic  storms  the  plasmasphere  decreases  in  size  owing  to  compression 
on  the  night  side  and  a peeling  off  and  convective  loss  of  plasma  in  the  after- 
noon dusk  sector.  During  magnetically  quiet  periods,  the  plasmasphere  refills 
as  a result  of  upward  flow  of  cold  plasma  from  the  ionosphere,  increasing  in  size. 
One  of  the  primary  objectives  of  studies  of  ionospheric-magnetosphere  coupling 
is  to  relate  global  morphological  storm  and  quiet  time  patterns  of  the  behavior 
of  the  plasmasphere  to  those  of  the  ionosphere. 


A fundamental  requirement  for  understanding  the  processes  governing  the 
ionosphere-plasmasphere  system  is  a knowledge  of  the  concentration,  temperature 
and  flow  velocities  of  charged  species  populating  the  field  tubes.  Since  no 
experiment  has  yet  been  devised  which  can  supply  these  parameters  along  the  full 
extent  of  the  field  tube,  we  must  of  necessity  resort  to  models  to  unify  and 
interpret  available  and  forthcoming  fragments  of  data.  Studies  of  field  tube 
refilling  constitute  an  important  approach  to  the  overall  problem.  Although 
many  studies  of  this  type  have  been  carried  out  in  recent  years  (these  are 
discussed  at  greater  length  below)  the  details  of  the  filling  process  still 
remain  unknown,  primarily  because  it  has  not  yet  been  possible  to  construct  a 
numerical  model  which  incorporates  all  salient  physical  processes. 

The  purpose  of  the  computer  code  described  in  this  report  is  to  provide 
the  theoretical  framework  for  quantitative  interpretation  of  measurements  of 
concentration,  flow  and  temperature  of  thermal  ions  in  the  plasmasphere  from 
ongoing  and  upcoming  programs  such  as  Atmosphere  Explorer,  International 
Sun-Earth  Explorer,  Dynamics  Explorer,  GEOS  and  several  Air  Force  satellites. 

The  nucleus  of  the  model  comprises  the  solution  of  the  momentum,  continuity, 
energy  and  heat  flow  equations  for  a system  of  3 charged  species,  0+,  H+  and 
electrons,  i.e.,  we  obtain  concentrations,  temperatures  and  flow  velocities. 

Work  is  currently  in  progress  to  include  higher  order  moments  for  the  pressure 
and  stress  tensors  (Schunk,  1975)  to  take  account  of  perpendicular  and  parallel 
temperatures.  The  effects  of  the  magnetic  gradient  force  is  also  being  investi- 
gated. The  equations  are  solved  along  an  entire  field  tube  with  feet  located  in 
the  E region  of  the  northern  and  southern  hemispheres.  Ion  production  rates  and 
photoelectron  heating  rates  are  computed  quasi-simultaneously  along  the  field 
line.  Drifts  due  to  neutral  winds  or  electric  fields  are  entered  as  input  data 
together  with  other  geophysical  parameters.  As  suchJ the  code  provides  the  most 
comprehensive  simulation  to  date  of  field  aligned  plasma  transport  in  the 
plasmasphere.  Nevertheless,  at  best  the  code  will  only  provide  a basis  for 
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interpretation  of  observations.  It  is  unlikely  that  accurate  agreement  with 
all  data  will  be  attained  at  this  stage,  since  a greater  number  of  factors  will 
significantly  affect  the  behavior  of  the  plasmasphere  than  have  been  incorporated 
into  the  current  model.  Disagreement  between  model  values  and  measurements  will 
provide  a basis  for  discovering  new  processes.  There  are  clear  indications  that 
significant  unidentified  plasmaspheric  heat  sources  must  exist.  Satellite  data 
(Mahajan  and  Brace,  1969;  Sanatanl  and  Hanson,  1970;  Serbu  and  Maier,  1970; 

Brace  ejt  al^ , 1973;  Maher  and  Tinsley,  1977)  indicate  large  temperature  gradients 
between  the  equator  and  ionosphere  on  a given  field  tube,  for  example,  which 
cannot  be  explained  by  the  photoelectron  heat  source.  This  in  turn  implies  that 
thermal  conductivity  coefficients  must  vary  significantly  along  the  field  tube, 
otherwise  untenably  large  values  of  Tg  would  occur  at  1000  km.  Wave  particle 
interactions  seem  to  be  an  obvious  candidate.  However  the  problem  with  wave- 
particle  interactions  is  that  accurate  expressions  for  the  "effective  collision 
cross  sections",  which  are  needed  to  correctly  describe  transport  processes  such 
as  thermal  diffusion  and  thermoelectric  transport,  are  not  available. 

The  effects  of  EXB  drifts  have  not  yet  been  satisfactorily  treated.  When 
the  effects  of  the  latter  are  considered  the  magnetic  field  tube  should  be 
allowed  to  move  latitudinally  taking  account  of  the  volume  change  in  the  tube 
and  consequent  redistribution  of  ionization.  Ultimately  we  will  require  the 
capability  to  model  the  net  loss  of  plasma  from  the  plasmasphere,  i.e.,  in 
addition  to  loss  to  the  ionosphere. 

We  expect  that  the  present  model  will  go  a long  way  toward  quantifying 
the  effects  of  the  processes  outlined  above,  and  identifying  new  processes, 
just  as  the  earlier  models  of  Mayr  a^L.  (1972);  Moffett  and  Murphy,  1973; 

Massa  et.  al.  (1974);  Murphy  et  al.  (1976);  Bailey  £t  al.  (1978)  have  identified 
the  broad  features  of  tube  filling,  and  the  effects  of  interhemispheric  plasma 
flow  on  conjugate  ionospheres  as  a function  of  local  time,  season  and  solar 
cycle. 
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Of  all  the  hydrodynamic  models  reported  in  the  literature  to  date  for 
L < 1.5  that  of  Mayr  e£  al_.  (1972)  was  the  first  to  include  the  momentum, 
continuity  and  energy  equations  in  a comprehensive  form.  It  is  indeed  regret- 
table that  this  work  was  not  carried  further,  as  their  code  inherently  contained 
most  of  the  basic  features  incorporated  in  the  present  work.  We  have  simply 
improved  the  formulation  of  the  transport  equations  and  developed  an  efficient 
numerical  technique  for  solving  the  coupled  set  of  equations.  However,  without 
the  innovations  incorporated  in  the  present  method,  the  task  is  formidable  and 
that  may  be  the  reason  why  the  earlier  attempts  of  Mayr  et  al,  (1972)  were 
abandoned . 

2.2  Previous  Studies 

Early  work  on  the  general  subject  of  ionosphere-magnetosphere  coupling  can 
be  broken  down  into  four  main  categories. 

1)  Interhemispheric  Plasma  Exchange:  i.e.,  studies  on  the  interhemispheric 
flow  of  plasma  and  its  effects  on  the  plasmasphere  and  ionosphere. 

2)  Ionosphere-Protonosphere  Coupling:  i.e.,  involving  primarily  studies  of 
protons  escaping  from  and  returning  to  the  ionosphere  using  a single 
hemisphere  model. 

3)  General  F region  and  topside  ionospheric  studies. 

4)  Formulation  of  transport  equations  relevant  to  the  above  mentioned  studies. 

We  review  progress  in  these  4 areas  below  commencing  with  points  (2)  and 
(3)  since  historically  studies  of  the  plasmasphere  originated  in  studies  of  the 
ionosphere. 

Normal  F region 

We  briefly  review  work  in  this  area  because  not  only  does  the  behavior  of 
the  F2  layer  affect  plasma  exchange,  but  the  work  led  to  the  formulation  of  the 
modern  aeronomy  transport  equations  and  to  studies  of  ionospheric  dynamics 
(discussed  in  the  next  subsection)  which  significantly  affect  the  filling  of  the 
plasmasphere  after  substorm  depletion. 
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Evans  (1975)  has  reviewed  recent  work  on  F region  dynamics.  While  the  bottom 
side  of  the  F^  layer  is  chemically  controlled,  diffusion  of  ionization  becomes 
increasingly  important  above  about  200  km.  In  the  absence  of  other  transport 
effects  hydrostatic  equilibrium  is  established  by  about  400  km.  The  plasma 
diffusion  velocity  depends  upon  the  ion  neutral  collision  frequency  and  temp- 
erature and  pressure  gradients  of  all  the  ions  in  the  plasma.  Early  static 
models  (Johnson,  1960;  Mange,  1960;  Kockarts  and  Nicolet,  1963;  Bauer,  1966 
and  others)  were  extended  by  Walker  (1967),  and  Schunk  and  Walker  (1969)  to 
include  thermal  diffusion  effects.  Schunk  and  Walker  presented  diffusive 
equilibrium  density  profiles  calculated  for  a mixture  comprising  two  major  ions, 
electrons  and  a number  of  minor  ions.  Thermal  diffusion  was  shown  to  have  an 
important  influence  on  charged  particle  distributions  at  altitudes  above  the 
F region  peak  when  electron  and  ion  temperature  gradients  are  greater  than  l°K/km. 
For  ion  and  electron  temperatures  which  increase  with  altitude  thermal  diffusion 
acts  to  drive  heavy  ions  towards  higher  altitudes,  i.e.,  towards  hotter  regions. 
Thermal  diffusion  also  enhances  the  ordinary  diffusion  coefficient.  Schunk  and 
Walker  (1970a,b)  extended  the  work  to  the  diffusion  of  minor  ions  in  the  presence 
of  major  ion  fluxes,  and  Schunk  and  Walker  (1973)  developed  a diurnal  model  of 

the  E and  F regions  incorporating  these  processes. 

Models  with  Neutral  Winds 

Kohl  et  al.  (1968),  Rishbeth  (1967,  1968),  Stubbe  (1968,  1970),  Bailey  et  al. 
(1969),  Abur  Robb  (1969),  Sterling  et  al.  (1969),  Strobel  and  McElroy  (1970), 

Jones  (1974)  and  Roble  (1975)  and  others  have  developed  models  which  include  the 
effects  of  winds  on  the  F^  layer.  The  winds  serve  to  drive  the  F region  ioni- 
zation along  the  field  lines.  As  such  the  process  is  important  for  itnosphere- 
plasmasphere  coupling.  The  ionization  is  blown  downwards  during  the  day  and 
upwards  at  night.  The  subject  has  been  reviewed  by  Rishbeth  (1972,  1974)  and 
Evans  (1975). 


Winds  not  only  affect  the  ionosphere,  but  are  affected  in  turn  by  ion  drag 
caused  by  ionospheric  plasma  which  is  bound  to  the  field  lines  at  F region  altitudes. 
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Therefore  several  of  the  above  mentioned  papers  have  simultaneously  solved  the 
coupled  ion  and  neutral  air  equations.  Stubbe  (1970),  for  example,  solved  the 
time-dependent  coupled  continuity  and  momentum  equations,  and  electron  and  ion 
energy  equations  for  a mixture  comprising  four  ions  (N0+,  0-+,  0+  and  H+) . The 
photoelectron  heating  rate  was  estimated  from  the  ionization  rate  by  using  a 
heating  efficiency. 

The  most  comprehensive  model  developed  to  date  is  that  of  Roble  (1975). 

In  Roble's  model  the  primary  and  secondary  photoelectron  fluxes,  ion  production 
rates  and  heating  rates  are  computed  from  the  EUV  flux  and  a model  atmosphere. 

Five  ion  continuity  and  momentum  equations  are  solved  including  a flux  from  the 
magnetosphere,  neutral  winds  and  electric  fields.  The  electron  and  ion  energy 
equations  are  also  solved  using  heating  rates  determined  from  chemical  reactions, 
photoelectron  collisions,  and  a heat  flux  from  the  magnetosphere.  The  component 
of  the  neutral  wind  along  the  geomagnetic  field  is  determined  from  a separate 
dynamic  model  of  the  neutral  atmosphere  using  incoherent  scatter  radar  measurements. 
Boundary  conditions  were  determined  from  the  incoherent  scatter  radar  measurements 
of  T , T.  and  0+  flux  at  800  km  over  Millstone  Hill. 


Electric  Fields 


Dynamo  electric  fields  at  low  to  midlatitudes  during  magnetically  quiet 
periods  are  less  important  than  neutral  winds  in  controlling  the  behavior  of 
the  F region  (c.f.,  Evans,  1975;  Behnke  and  Kohl,  1974).  However,  fields  of 
magnetospheric  origin  during  substorms  can  be  significant.  Park  and  Banks  (1974) 
modelled  the  effect  of  substorm  electric  fields  which  penetrate  the  plasmasphere. 
Observations  show  that  a decrease  in  the  layer  height  at  night  is  often 
accompanied  by  an  initial  increase  in  Park  and  Banks  (1974)  show  that 

a downward  flow  of  plasma  from  the  magnetosphere  into  the  F region  due  to 
convectional  compression  of  field  tubes  basically  accounts  for  the  phenomenon. 
Thus  electric  field  effects  must  be  incorporated  in  any  realistic  study  of 
field  tube  filling. 

Ionosphere-Protonosphere  Coupling 

Protonosphere  ionosphere  coupling  has  been  studied  mainly  from  two  comple- 
mentary viewpoints,  namely 

1)  as  a source  of  ionization  in  the  nocturnal  F region. 

2)  as  a source  and  sink  of  plasma  for  the  protonosphere. 

Several  obvious  discrepancies  in  the  expected  signature  of  the  ionosphere 
on  the  plasmasphere  lead  to  studies  of  proton  filling  rates  in  the  plasmasphere 
due  to  outflow  from  the  ionosphere  (Banks  et  al . , 1971).  For  example,  the 
plasma  density  decreases  on  the  equatorward  side  of  the  light  ion  trough  at 
L values  of  2,  whereas  the  plasmapause  lies  between  L = 4 to  6.  From  the 
protonospheric  point  of  view  proton  escape  serves  to  replenish  field  tubes  that 
have  lost  their  ionization.  The  protonosphere  from  the  ionospheric  viewpoint 
therefore  is  a reservoir  of  ionization  which  is  filled  during  the  day,  and 
which  can  act  as  a source  of  ionization  for  the  F region  at  night. 
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Early  theoretical  studies  predicted  significant  fluxes  of  0+  ions  into 
the  F region  via  the  charge  exchange  process  of  H+  with  0 (Hanson  and  Patterson, 

1964;  Geisler  and  Bowhill,  1965;  Geisler,  1967).  These  predictions  were  soon 
confirmed  by  experimental  results  (Vasseur  and  Waldteufel,  1968;  Evans,  1969, 

1971a, b;  Evans  et  al. , 1970;  Behnke,  1970;  Hagen,  1972).  Subsequent  theoretical 
work  took  account  of  the  relative  flow  between  interacting  species  and  confirmed 
the  importance  of  the  protonosphere  as  a source  of  ionospheric  plasma  (Banks 
et  al.,  1971;  Schunk  and  Walker,  1972;  Nagy  and  Banks,  1972;  Schunk  and  Walker, 

1973;  Moffett  and  Murphy,  1973;  Massa  et  al.,  1974;  Murphy  et  al.,  1976).  These 
studies  have  shed  considerable  light  on  filling  processes.  However,  the  results 
are  all  based  on  single  hemisphere  models.  In  some  cases  boundary  altitudes 
lay  between  one  to  a few  thousand  km. 

The  work  of  Park  and  Banks  (1974)  and  Murphy  e£  al.  (1976)  produced  several 
major  new  results.  The  former  studied  the  effects  of  plasma  flow  into  the  ionosphere 
under  the  influence  of  neutral  winds  and  an  east-west  electric  field.  The 
latter  studied  field  tube  filling  after  substorm  depletion  and  the  subsequent 
effects  on  the  plasmasphere  and  ionosphere.  Park  and  Banks  (1974)  divided  the 
tube  extending  from  the  ionosphere  to  the  equator  into  three  regions  with 
specialized  formulations  for  each  region.  Each  region  was  then  coupled  to  the 
adjacent  region  by  flux  or  density  boundary  conditions.  As  a result  the  effect 
of  the  total  tube  content  on  the  ionosphere  could  be  studied  under  different 
circumstances.  It  was  found  that  undor  steady  state  conditions  plasma  flow 
from  the  plasmasphere  into  the  ionosphere  has  a strong  stabilizing  effect  upon 
the  F^  layer  peak  density,  such  that  for  wide  ranges  of  applied  east-west 
electric  fields  or  north-south  thermospheric  winds  there  is  essentially  no 
change  in  was  also  found  that  depends  sensitively  on  the  plasma 

density  of  the  plasmasphere.  In  the  time  dependent  case  may  increase 

significantly  due  to  field  tube  convection  altering  the  volume  of  the  tube  and 


squeezing  plasma  down  Into  the  ionosphere.  For  a midlatitude  tube  the  time 

needed  to  achieve  a steady  state  N F_  is  much  less  than  the  time  needed  to  reduce 

m i 

the  tube  content  appreciably.  With  a neutral  wind  such  convection  does  not  occur 
in  the  time  dependent  case  and  N^^  remains  effectively  unchanged.  Park  and  Banks 
(1974)  point  out  that  this  stability  of  the  F^  layer  cannot  be  achieved  without 
coupled  models  of  the  F region  and  plasmasphere.  Therefore  all  models  which 
rely  upon  diffusive  equilibrium  for  0+  in  the  topside  ionosphere  will  be  in 
error.  Since  N^Fj  depends  strongly  on  tube  content  and  since  magnetospheric 
substorms  continually  agitate  the  plasma  density  in  the  midlatitude  plasmasphere, 
a wide  range  in  N F-  can  result. 

ID  / 

Murphy  et  al . (1976)  studied  the  effects  of  post  substorm  filling  at  equinox 
and  solstice  for  sunspot  minimum  conditions.  They  solved  the  continuity  and 
momentum  equations  for  0+  and  H+  from  160  to  1400  km  and  160  km  to  the  equator 
respectively.  Diffusive  equilibrium  was  assumed  for  0+  above  1400  km. 

Their  results  showed  a steady  build  up  in  tube  content  for  several  days  after 
the  substorm,  and  suggested  that  equilibrium  conditions  may  seldom  be  realized 
because  of  the  frequency  of  occurrence  of  substorms.  Daytime  values  of  the  H+ 
flux  were  not  affected  by  the  tube  content.  Nighttime  values  were  found  to 
depend  on  layer  height  and  1^2.  The  0+  flux  was  always  large  for  larger 

tube  content.  Tube  content  continues  to  increase  until  the  downward  H+  flux 
balances  the  upward  flux  over  a diurnal  cycle.  Prior  to  this  N F_  increases 
on  a night  to  night  basis.  The  downward  H+  flux  depends  primarily  on 

1)  Plasma  temperature 

2)  total  plasma  content  of  the  tube 

3)  Phase  of  the  neutral  wind. 
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Nighttime  downward  fluxes  were  found  to  have  the  same  stabilizing  effect  reported 
by  Park  and  Banks  (1974)  . The  effect  of  upward  daytime  fluxes  is  about  a 
15%  reduction  of  the  F region  peak  density. 

Bailey  £t  al.  (1978)  repeated  the  calculations  for  sunspot  maximum  conditions. 
They  found  that  H+  is  supplied  to  the  protonosphere  during  both  day  and  night 
and  results  in  a net  loss  of  neutral  atomic  hydrogen.  The  daily  average  flux  is 
-7.5  x 107cm2 s-1 . 

A special  study  of  interest  reported  by  Bailey  et^  al.  (1977)  using  the  one 
hemisphere  model  was  the  theoretical  confirmation  of  counterstrearaing  of  0+  and 
H+  ions  observed  by  Vickery  et  al.  (1976)  at  twilight  from  Arecibo.  This  topic 
is  discussed  further  for  a more  general  case  in  the  section  reporting  results 
obtained  with  the  current  model. 

Murphy  et  al.  (1976)  also  assessed  the  sensitivity  of  the  results  to 
temperature  changes.  An  increase  in  the  gradient  of  Tg  along  the  field  line 
shortens  the  filling  time.  In  each  of  the  analysis  discussed  earlier  the  electron 
and  ion  temperatures  were  obtained  semi-empirically,  rather  than  calculated  on  the 
basis  of  electron  densities,  etc.,  as  part  of  the  model.  The  models  were 
essentially  exploratory  in  nature  employing  many  simplifying  assumptions  and  as 
such  served  the  useful  purpose  of  identifying  the  main  features  of  the  coupled 
ionosphere-plasmasphere  system.  The  next  level  of  development  was  the  inclusion 
of  interhemispheric  flow  into  the  models,  and  the  addition  of  the  electron  and 
ion  energy  equations. 

Interhemispheric  Flow  of  Plasma 

Relatively  few  theoretical  studies  have  treated  the  interhemispheric  flow 

\ 

of  plasma,  despite  the  fact  that  the  phenomenon  may  be  important.  Some  obvious 
questions  that  required  answers  included: 

1)  Can  the  direct  flow  of  plasma  from  one  hemisphere  to  the  other  affect  the 
conjugate  protonosphere  and  ionosphere.  For  example,  can  interhemispheric 
flow  enhance  the  winter  anomaly? 


2)  Cun  the  redistribution  of  plasma  change  upward  and  downward  flow  rates? 

3)  Is  there  a net  transfer  of  plasma  when  one  hemisphere  is  illuminated  and 
the  other  in  darkness? 

Rothwell  (1963),  Hanson  (1964)  and  Kohl  (1966)  discussed  interhemispher ic 
flow  in  connection  with  the  F?  layer  winter  anomaly.  Nagy  e£  al^.  (1968)  studied 
interhemispher ic  flow  as  a source  of  heat  for  the  local  topside  ionosphere. 

Recent  models  which  included  interhemispheric  flow  have  been  developed  by 
Mayr  (1972),  Kutimskaya  et_  a_l.  (1973),  Bailey  et_  jQ.  (1978).  Murphy  and  Moffett 
(1978)  use  a single  hemisphere  model  but  assess  the  effects  of  interhemispheric 
flow.  The  following  main  results  emerge  from  these  studies. 

Mayr  e£  al.  (1972)  solved  the  steady  state  continuity  and  momentum  equations 
and  energy  equations  for  0+,  H+,  He+  and  electrons.  The  main  emphasis  of  their 
work  was  on  F region  dynamical  effects.  For  example,  they  found  that  a wind 
field  assymetric  with  respect  to  the  equatorial  plane,  gives  rise  to  assymetric 
density  profiles.  Interhemispheric  flow  decreased  the  protonospheric  density 
by  a factor  of  2 in  one  hemisphere  raising  the  0+-H+  transition  height  by  90  km 
while  increasing  the  proton  density  in  the  other  hemisphere.  The  0+  and  H+ 
scale  heights  changed  significantly  as  did  the  K+  flux.  A comprehensive  study 
of  the  latitudinal  electron  temperature  variation  shov?ed  that  model  results 

at  1000  km  were  in  agreement  with  the  measurements  of  Brace  je_t  ill.  (1967). 

A time  dependent  calculation  was  also  attempted  by  a perturbation  method. 

The  results  indicated  that  diurnal  plasma  exchange  between  the  protonosphere  and 
F 2 region  is  significant.  As  mentioned  earlier,  these  workers  did  not  fully 
exploit  the  potential  of  their  model. 

Bailey  et  al.  (1978)  extended  their  earlier  model  to  two  hemispheres. 

Despite  the  fact  that  the  energy  equations  were  not  solved,  several  interesting 
new  results  were  obtained  for  sunspot  minimum  conditions. 
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1)  For  midlatitude  flux  tubes  (L  = 3)  the  interhemispher ic  flow  does  not 

directlv  affect  N F„. 

m2 

2)  The  total  content  of  the  plasmasphere  is  the  factor  of  primary  importance. 

The  protonosphere  acts  as  a reservoir  which  is  filled  by  flows  from  each 
hemisphere.  Thus,  although  conjugate  ionospheres  are  decoupled  via  this 
reservoir,  the  longer  term  filling  process  provides  an  important  indirect 
coupling  mechanism. 

3)  Generally  there  is  a significant  interhemispheric  flow  of  plasma.  Sometimes 
the  flow  is  from  the  winter  to  the  summer  hemisphere. 

A)  Although  the  winter  ionosphere  is  not  affected  by  the  direct  interhemispheric 
flow,  in  general  the  plasmasphere  content  tends  to  enhance  winter  and  reduce 
summer  densities. 

5)  The  flow  is  upward  in  both  hemispheres  during  the  day. 

6)  The  flow  is  downward  in  the  winter  hemisphere  in  the  evening,  but  becomes 
small  or  changes  direction  between  midnight  and  dawn. 

7)  When  the  flux  at  1000  km  in  one  hemisphere  is  significantly  larger  than  that 
in  the  other  hemisphere,  there  is  a signature  on  the  interhemispheric  flux. 

Murphy  and  Moffett  (1978)  recently  extended  their  code  to  include  both 
the  energy  equations,  and  to  include  nonlinear  acceleration  terms  in  the 
momentum  equations.  Despite  comments  to  the  contrary  by  Bailey  a_l.  (1978) 
it  was  found  that  the  solution  of  the  temperature  equations  yielded  unexpected 
results  regarding  the  effects  of  gradients  on  flow’s.  The  effect  of  changes  in 
pressure  gradients  was  approximately  cancelled  by  changes  in  temperature 
gradients.  Thus  the  H+  downflow  in  a collapsing  protonosphere  at  sunset  is 
not  enhanced  to  the  extent  expected.  Enhancements  that  do  occur  are  due  almost 
entirely  to  the  decreasing  0+  concentration.  Contrary  to  the  suggestions  of 
Font  holm  .uni  Banks  O'”1 7 2 "I  no  evidence  was  obtained  to  suggest  that  supersonic 
flows  occur. 
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Formulations  and  Solution  of  the  Transport  Equations 


A 


The  basic  equations  which  describe  the  temporal  and  spatial  behavior  of 
rarefied  gases  are  expressed  in  terms  of  their  concentrations,  bulk  flow  velocity 
and  temperature.  These  quantities  are  included  within  the  basic  conservation 
equations  derived  by  taking  velocity  moments  of  various  terms  of  Boltzmann's 
equation.  Schunk  (1975,  1977)  points  out  that  the  basic  equations  used  in 
modelling  the  ionosphere  and  protonosphere  have  not,  in  general,  been  applied 
with  a clear  recognition  of  their  intrinsic  limitations.  Attempts  have  been 
made  to  study  ionospher ic-magnetospheric  plasma  exchange  using  the  binary 
formulations  of  Chapman  and  Cowling  (1960)  to  obtain  drift  velocities  for  the 
multicomponent  0,  0+,  H+  gas  mixture  (Massa,  1974;  Murphy  et  a_l.  , 1976). 

Schunk  and  Walker  (1970a)  have  investigated  the  accuracy  of  the  binary  formulation 
and  have  shown  that  while  it  is  quite  accurate  for  the  derivation  of  the  ambi- 
polar  diffusion  coefficient,  diffusion  coefficients  for  minor  ions  can  be  in 
error  by  as  much  as  a factor  of  2.  The  factor  of  2 arises  from  the  fact  that 
the  binary  approximation  is  less  accurate  for  Coulomb  collisions  than  for  ion- 
neutral  collisions.  Since  the  major  ions  in  the  topside  ionosphere  go  through 
a transition  from  0 major  in  the  region  to  H major  in  the  protonosphere, 

it  is  essential  not  only  to  describe  the  minor  ion  diffusion  processes  correctly, 
but  furthermore,  to  have  a system  of  equations  which  accurately  describes  the  v 

behavior  of  the  gas  mixture  in  the  transition  region.  It  is  also  desirable, 
in  order  for  the  calculation  to  be  accurate,  that  thermal  diffusion  effects  be 
included  accurately  in  our  transport  equations,  as  was  shown  by  Schunk  and 
Walker  (1970b). 

Schunk  and  Walker  (1970b)  used  the  multicomponent  formulation  of 
Hirschfelder  e_t  a_K  (1964)  to  derive  t lie  continuity  equations  for  a three- 
constituent  mixture  comprising  0,  0+  and  electrons.  Although  this  approach 
yields  diffusion  coefficients  which  are  accurate  to  within  20%  (Schunk  and 
Walker,  1970b),  as  the  numbers  of  gases  in  the  multicomponent  mixture  increases 
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it  becomes  impossible  to  manipulate  the  equation  without  an  unreasonable 
amount  of  effort,  if  the  20%  accuracy  is  to  be  retained. 


| 


An  alternative  approach  to  transport  equations  derived  by  Burgers  (1969) 
has  recently  been  presented  by  Schunk  (1975)  for  applications  to  aeronomic 
studies.  This  system  has  many  advantages  over  the  systems  previously  used  for 
the  formulation  of  the  plasma  exchange  problem  between  the  ionosphere  and  the 
protonosphere. 

Schunk's  (1975)  system  of  equations  used  Grad's  (1949,  1958)  13-moment 
approximation  for  the  distribution  function  of  each  of  the  species  that  con- 
stitute the  plasma.  The  basic  advantages  of  Schunk's  formulation  stem  from 
the  fact  that  interactions  between  one  species  and  any  other  species  are 
described  by  collision  integrals  that  are  evaluated  to  the  same  degree  of 
approximation  as  the  distribution  function  themselves.  The  approach  appears  to 
yield  accuracies  equivalent  to  the  second  order  "multicomponent"  formulation. 
However,  it  has  several  advantages  over  the  multicomponent  formulation  used 
by  Schunk  and  Walker  (1970b).  There  are  two  important  advantages  that  we  see 
in  Schunk's  (1975)  formulation. 

The  first  important  feature  although  not  really  a new  one,  is  that  the 
equations  can  be  handled  directly  numerically  without  having  first  to  solve 
for  diffusion  coefficients  and  other  similar  parameters.  For  example,  in 
Schunk's  (1975)  13-moment  formulation,  transport  properties  of  the  gas  are 
described  by  first  order  equations,  namely  continuity,  momentum,  energy, 
pressure  tensor  and  heat  flow.  Thus  the  heat  flow  terms  that  appear  in  his 
momentum  collision  term  account  for  thermal  diffusion  effects,  while  the  drift 
velocity  terms  in  the  heat  flow  collision  term  account  for  thermoelectric  and 
diffusion-thermal  effects.  Thus  instead  of  solving  in  terms  of  a thermal 
diffusion  coefficient  one  can  solve  the  coupled  system  of  equations  directly. 
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A second  feature  of  interest  that  stems  from  Schunk's  (1975)  system  of 
equations  is  that  any  given  constituent  is  allowed  to  have  its  own  temperature 
and  drift.  This  enables  us  for  the  first  time  to  study  in  detail  the  effects 
of  a temperature  gradient  in  one  species  on  the  heat  flow,  or  thermal  diffusion 
of  another  species  with  a different  temperature  gradient. 

At  present  we  have  not  included  all  the  features  discussed  above  in  the 
present  code,  but  have  adopted  the  modified  momentum  equations  of  St.  Maurice 
and  Schunk  (1977)  and  energy  equations  of  Schunk  and  Nagy  (1978)  as  appropriate 
for  our  current  concepts  of  the  quiet  plasmasphere  (Schunk  and  Watkins,  1979). 

Application  of  this  system  to  the  midlatitude  ionosphere  and  plasmasphere 
permits  several  simplifying  assumptions  to  be  made  which  significantly  reduce 
the  complexity  of  the  equations. 

We  consider  a plasma  comprised  of  only  two  major  ions,  0+  and  H+  and 
electrons  in  a neutral  atmosphere  of  0,  C^,  and  H.  We  assume  that  species 
temperature  and  flow  velocity  differences  are  small,  a midlatitude  condition. 

Thus  we  can  neglect  stress  and  nonlinear  acceleration  terms,  and  use  Burger's 
(1969)  linear  collision  terms  (c.f.,  St.  Maurice  and  Schunk  (1977)).  In  addition 
density  and  temperature  gradients  perpendicular  to  the  geomagnetic  field  lines 
are  neglected,  and  we  have  assumed  that  ion  and  electron  temperature  distributions 
are  isotropic,  so  that  we  can  ignore  the  stress  tensor  equation. 

Even  though  many  of  the  individual  terms  in  our  equations  arise  directly 
from  Schunk's  13-moment  system  of  equations,  we  have  arrived  finally  at  a basic 
formulation  involving  only  six  equations.  These  are:  the  photoelectron  two 
stream  equation,  the  electron  energy  equation,  the  ion  energy  equation,  St.  Maurice 
and  Schunk's  velocity  solution  of  the  ion  and  electron  momentum  equations,  and 
finally  the  continuity  equations.  We  might  add  that  at  low  to  intermediate 
altitudes,  where  it  is  appropriate,  we  have  included  ion  neutral  collitions  with 
the  equations  of  St.  Maurice  and  Schunk  in  order  to  solve  for  the  individual 


ion  velocities  separately.  These  basic  equations  of  our  plasma  formulation 
are  given  collectively  in  (1)  - (6)  in  the  section  on  Basic  Equations. 

The  primary  photoelectrons  are  treated  via  a two  stream  Liouville  equation 
(Banks  and  Nagy,  1970)  which  essentially  follows  their  distribution  through  phase 
space  until  they  are  thermalized.  One  hundred  energy  steps  are  used  at  each 
spatial  grid  point  separately  for  the  upstreaming  and  downstreaming  electron 
populations.  Such  a detailed  phase  space  treatment  is  necessary  only  for  the 
highly  superthermal  photoelectrons. 

Currently  neutral  winds  can  be  input  numerically,  or  the  code  could  be 
modified  to  include  an  analytical  fit  to  experimental  or  model  wind  values  such 
as  those  of  Blum  and  Harris  (1975).  Provision  has  not  yet  been  made  for  electric 
field  convection  of  tubes  of  flux.  Despite  significant  advances  over  the  last 
decade,  which  were  described  earlier  as  well  as  in  a number  of  reviews  (Carpenter 
and  Park,  1973;  Chappell,  1972;  Banks,  1972;  Banks  et  al.,  1976),  the  plasma 
coupling  mechanisms  between  the  ionosphere  and  magnetosphere  have  not  been 
studied  using  a realistic  formulation  which  simultaneously  accounts  for  varia- 
tions in  all  the  major  controlling  variables. 

Another  major  shortcoming  in  previous  studies  has  been  the  use  of  ad  hoc 
boundary  conditions,  which  generally  arise  when  only  part  of  a field  line  is 
modeled.  Roble  (1975)  and  Stubbe  (1970)  formulated  their  coupled  parabolic 
equations  for  02+,  N0+,  0+  and  H+  in  the  F region  and  topside  ionosphere,  but 
H+  has  been  treated  as  a minor  ion  in  each  of  these  cases,  or  the  H+  density 
is  calculated  by  assuming  chemical  equilibrium  with  0+.  Such  formulations  all 
apply  to  altitudes  below  about  2000  km,  and  require  artificially  designated  or 
measured  upper  boundary  conditions. 


Bauer  (1968)  and  Massa  (1974)  attempted  to  extend  this  treatment  for  0 and 
H+  along  the  entire  flux  tube  but  this  leads  to  serious  numerical  problems, 
which  are  discussed  in  the  next  section.  We  show  in  the  next  section  that  a 


satisfactory  solution  to  the  entire  field  tube  problem  can  be  achieved  by 
linking  appropriate  low  and  high  altitude  formulations  with  continuity  conditions 
on  flux  and  density  at  about  1500  km. 

The  searching  method  has  also  been  used  in  attempts  to  treat  the  entire 
flux  tube  by  a single  method.  In  the  searching  method  (Moffett  and  Murphy,  1973; 
Mayr  et  aT^.  , 1965;  Murphy  and  Moffett,  1978;  Bailey  et_  al.  , 1977  ; Richards,  1978) 
the  flux  or  velocity  from  the  continuity  equation  is  substituted  into  the 
collision  terms  of  the  momentum  equation.  The  resulting  integro-dif f erential 
equation  is  then  integrated  numerically  down  from  the  equator  where  flux  and 
density  boundary  conditions  are  imposed.  The  equatorial  boundary  conditions  are 
readjusted  and  the  integration  performed  repeatedly  until  low  altitude  chemical 
boundary  conditions  are  satisfied.  The  main  disadvantages  of  this  approach  stem 
from  the  fact  that  flux  determinations  from  the  continuity  equation  are  inherently 
inaccurate  and  unstable  at  low  altitudes,  and  that  the  method  does  not  produce 
simultaneous  solutions  in  both  hemispheres.  Therefore,  convergency  may  be  up  to 
an  order  of  magnitude  slower  than  that  discussed  in  this  paper. 

The  perturbation  solution  of  Mayr  et  al.  (1972)  also  treats  the  entire  field 
line  as  a single  region.  Mayr  e_t  a±.  integrate  numerically  but  with  only  a 
gradually  increasing  fraction  of  the  collisional  terms  in  the  momentum  equations, 
along  the  entire  field  line.  The  drag  terms  are  always  evaluated  in  the  n'th 
approximation  to  obtain  the  n + 1st  approximation.  This  method  also  suffers 
from  low  altitude  problems  for  the  same  reasons  mentioned  in  connection  with 
searching  methods.  It  is  apparent  that  both  of  these  methods  are  basically 
high.altitude  formulations  and  that  neither  should  be  used  unless  an  accurate 
lower  boundary  at,  say,  1000  km  can  be  supplied  by  some  other  type  of  calculation 
or  by  measurement. 

Multiple  region  formulations  somewhat  similar  to  our  own  have  been  used 
by  Park  and  Banks  (1974)  and  Murubashi  and  Grebowski  (1976),  who  treated  the 
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topside  region  above  3000  km  as  a reservoir.  The  former  treatment  lacked  low 
altitude  diffusion  (1974),  however,  and  the  latter  ignored  significant  terms 
in  the  diffusive  equilibrium  formulation  at  high  altitudes  (1976).  We  surmount 
these  limitations  in  our  treatment  by  simulating  the  flow  and  density  in  an 
entire  flux  tube  spanning  the  midlatitude  plasmasphere  between  magnetically 
conjugate  points  in  the  F regions  of  the  northern  and  southern  ionospheres,  as 
shown  in  Figure  1.  The  solution  encompasses  several  regions  of  differing  dominant 
physical  processes,  which  in  turn  require  different  formulations  and  numerical 
treatments.  We  use  an  optimal  mathematical  approach  for  each  altitude  regime, 
and  derive  the  appropriate  and  unique  boundary  conditions  which  link  these  regions. 

In  order  to  produce  a geophysically  meaningful  and  consistent  simulation, 
a number  of  parameters  must  be  computed  in  the  proper  sequence  as  shown  in  Figure 
2 which  is  an  overall  schematic  of  our  simulation  code.  A line  with  an  arrow  in 
the  schematic  indicates  a parameter  that  is  supplied  by  one  program  or  group  of 
programs  to  another  program  or  group  of  programs.  Lines  without  arrowheads 
indicate  continuity  equations.  Figure  2 shows  how  the  earth's  rotating  tilted 
dipole,  gravitational  and  magnetic  field  are  calculated  locally  in  the  proper 
sequence  and  neutral  atmospheric  parameters  may  be  taken  locally  from  a semi- 
empirical  model.  We  selected  the  MSIS  model  atmosphere  by  Hedin  et  al.  (1977a, b) 
because  it  reproduces  the  seasonal  solar  cyclic  and  diurnal  variations  of  the 
atmosphere  as  well  as  its  response  to  geomagnetic  disturbances. 

2 . 3 Basic  Equations 
Photoelectron  Liouville  Equation 
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where  $ (E,s)  m photoelectron  flux  outward  along  s 

<{>  (E,s)  = photoelectron  flux  inward  along  s 

q(E,s)  = photoelectron  production  rate  in  the  range  E to  E + de 
due  to  direct  ionization  processes. 

q”  = photoelectron  production  in  the  range  E to  E + de  due  to 

cascading  from  higher  energy  photoelectrons  undergoing 
inelastic  collisions. 

<cos<t>>  = average  cosine  pitch  angle 
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species  number  density 


p k = photoelection  backscatter  probability  for  elastic  conditions 

^ til 

with  the  k species. 

o k = photoelectron  total  scattering  cross  section  for  elastic 
conditions  with  the  k ^ species. 

o k = inelastic  cross  section  for  excitation  of  the  k particle  species. 
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Electron  Heat  Flow 
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Ion  Electron  Momentum 
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where 


N /N,/N„  = electron/O  /H  density 
e 1 i 

= temperatures 

l^/U^/Uj  = average  drift  velocities 

q^/q^  = electron/ion  heat  flux 

EQ^/EL.^  = sum  of  electron  heating/cooling  rates 

and  we  have  used  the  thermal  conductivity  coefficients  (X.,  X ),  the  diffusion 

l e 

coefficients  (D^)  and  terms  in  the  diffusive  force,  whi/;h  we  symbolize  by  Q^, 
from  St.  Maurice  and  Schunk  (1977).  The  term  £ in  the  denominator  of  (D  is 
given  by  St.  Maurice  and  Schunk  as 
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where  the  v ' v . . ' . v,'  and  v ' are  their  "effective  collision  frequencies" 
j i ’ i-3  i 3 

Also  we  may  collect  the  diffusive  force  terms  given  by  them  in  the  form 
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where  the  upper/lower  sign  applies  to  0 /H  ; , a q ^ and  are  thermal 

diffusion  coefficients  and  is  the  ordinary  ion  diffusion  coefficient  of 
species  i,  as  in  St.  Maurice  and  Schunk.  The  matrix  L in  the  continuity 
equation  contains  all  the  chemical  production  and  loss  frequencies  for  both  ions. 


2 . 4 Numerical  Simulation 
Outline  of  Approach 

Equations  (3)  to  (7)  form  a system  of  8 first  order  differential  equations. 

Equations  (5)  and  (6)  can  be  substituted  into  (4)  and  (3)  respectively  to  form 

two  parabolic  partial  differential  equations.  Similarly  equation  (7)  can  be 

substituted  into  (8)  to  yield  2 parabolic  equations.  Two  boundary  conditions 

required  for  each  parabolic  equation  and  these  are  supplied  at  the  end  of  the  field 

tube.  The  boundary  altitude  can  be  chosen  to  ensure  that  local  equilibrium 

conditions  prevail.  This  approach  has  worked  successfully  for  the  solution  of 

the  energy  equations.  In  the  case  of  the  continuity  equations,  numerical 

problems  are  encountered  above  some  altitude  which  generally  lies  between  1000 

and  3000  km  depending  on  prevalent  conditions.  In  this  region  the  diffusive 

force  term,  Q^,  given  by  (10)  tends  to  zero  while  the  diffusion  coefficient, 

becomes  very  large  although  the  ion  fluxes  remain  finite.  The  individual 

terms  of  do  not  become  small  at  high  altitudes.  Therefore,  becomes  the 

small  algebraic  sum  of  several  relatively  larger  terms.  The  fractional  error 

of  becomes  large  at  high  altitudes,  and  so  does  the  fractional  errors  of 

ion  flux,  which  is  a linear  combination  of  Q.  terms  when  calculated  from  the 

i 

momentum  equations.  The  fact  that  ; 0 implies  that  diffusive  equilibrium 
prevails.  We  therefore  use  equation  (10)  to  compute  the  0+  and  H+  densities 
in  the  region  where  ^ 0. 

We  divide  the  plasma  flux  tube  into  three  regions  B,  C,  and  B*  shown  in 
Figure  1.  In  the  low  altitude  regions  B and  B*  collisions  are  important  and 
the  full  parabolic  equations  are  used.  These  equations  accurately  reproduce 


the  plasma  concentration  and  flow  in  this  region.  In  region  C,  the  plasma  may 
be  termed  collisionless  and  the  diffusive  equilibrium  approximation  is  used. 


This  procedure  is  effectively  equivalent  to  using  the  shooting  method  in  region 
C.  The  approach  eliminates  the  low  altitude  problems  which  are  peculiar  to 


the  shooting  method,  as  well  as  the  high  altitude  problems  which  limit  the 
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parabolic  approach.  The  solutions  for  each  region  are  coupled  through  a flux 

preserving  approach  which  is  described  in  detail  in  subsequent  sections. 

Although  the  density  profiles  calculated  in  region  C have  the  shape  of 

diffusive  equilibrium  profiles  at  any  instant,  they  match  the  time  variable 
densities  at  boundaries  2 and  2*  (see  Figure  1).  Therefore  non  zero  fluxes 
are  required  to  inflate  or  deflate  the  field  tube  in  this  region.  On  the 
basis  of  this  fact  we  avoid  the  use  of  the  term  "diffusive  equilibrium"  and 
adopt  the  terminology  "dynamic  equilibrium"  instead. 

If  we  consider  regions  B and  B*  as  separate  regions  whose  ion  densities 
are  described  by  coupled  parabolic  second  order  equations,  it  is  clear  that  one 
boundary  condition  per  variable  is  required  at  each  of  the  respective  upper 
boundaries  2 and  2*,  in  order  to  obtain  a unique  mathematical  solution.  If 
regions  B and  B*  were  adjacent  it  is  clear  that  each  would  supply  the  boundary 
for  the  other.  With  separated  regions  it  is  equally  valid  to  choose  two 
independent  equations  per  variable,  each  describing  a relation  between  the 
values  of  fluxes  and  densities  at  the  boundaries  2 and  2*.  We  have  chosen  to 
numerically  integrate  the  equations  of  dynamic  equilibrium  (10) , over  region 
C to  provide  one  boundary  relation  per  variable.  This  procedure  provides  the 
density  at  boundary  2*,  as  well  as  the  total  flux  tube  contents  as  a function 
of  the  density  at  boundary  2.  We  then  integrate  the  continuity  equations  for 
H+  and  0+  over  region  C to  obtain  the  second  independent  boundary  relation 
for  each  variable,  this  time  relating  the  boundary  fluxes  at  points  2 and  2* 
to  the  time  variation  of  the  total  flux  tube  content. 

As  the  continuity  equations  and  diffusive  equilibrium  equations  are 
physically  valid  as  well  as  independent,  it  is  clear  that  the  final  solution 
will  be  geophysically  meaningful  as  well  as  mathematically  unique. 
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Flow  Chart  Description 

In  Figure  2,  the  overall  schematic  of  our  simulation,  each  block  represents 
a routine  or  model  providing  necessary  geophysical  parameters  or  simulating 
some  aspect  of  plasma  transport,  i.e.,  routines  were  written  to  supply  param- 
eters related  to  the  magnetic  field  geometry,  the  neutral  atmosphere,  ion 
production  rates,  heat  sources  and  so  on. 

As  a first  initialization  step,  the  geophysical  parameters  defining  the 
problem  such  as  UT  date  and  time,  L shell,  magnetic  longitude,  and  solar  and 
magnetic  activity  indices  are  input  via  terminal  command,  or  equivalent  batch 
input.  Then  the  geometry  and  fields  routines  calculate  an  appropriate  spatial 
grid  along  the  specified  field  line  of  the  earth's  rotating  tilted  dipole,  and 
at  each  point  compute  the  magnetic  and  gravitational  fields  and  the  solar 
zenith  angle.  The  grid  is  constant  step  size  in  a modified  dipole  coordinate 
system  which  results  in  much  smaller  actual  spatial  steps  at  low  altitudes 
where  scale  heights  are  smaller.  A variable  step  size  flux  preserving  code  is 
used  with  the  spatial  steps  to  solve  the  density  equations  while  a standard 
equal  step  finite  difference  code  is  used  with  the  modified  dipole  coordinates 
to  solve  the  temperature  equations.  Next,  the  initial  profiles  of  ion  density, 
N^,  ion  temperature  T^  and  electron  temperature  T&,  are  input  from  stored 
data  and  interpolated  if  necessary  to  match  the  grid  points  for  the  problem 
at  hand.  This  is  the  last  initialization  step.  The  steps  of  the  simulation 
described  hereunder  must  be  repeated  with  each  time  step. 

The  first  repeated  step  is  to  obtain  the  neutral  temperature  and  densities 
from  the  MSIS  model  at  each  spatial  grid  point  for  the  particular  time  of  the 
step  being  simulated.  The  primary  photo-electron  production  in  100  energy 
intervals  is  calculated  using  neutral  densities  from  MSIS,  solar  fluxes  or 
Hinteregger  (1978)  and  photoionization  cross  sections  listed  by  Kirby  Docken 
et_  al_.  (1979).  The  degradation  of  the  primary  photoelectron  spectrum  is 
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then  computed  using  the  2-stream  equations  of  Banks  and  Nagy  (1970).  The 
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temperature  and  density  profiles  of  the  thermal  ions  and  electrons  are  taken 
from  the  previous  time  step  except  that  initial  profiles  are  used  for  the  first 
time  step.  The  2-stream  equations  supply  the  thermal  ion  and  electron  heating 
rates  required  by  the  thermal  energy  equations. 

* i 

The  thermal  energy  equations  form  a coupled  parabolic  system.  Solution 
of  these  equations  by  an  iterative  technique  yields  the  ion  and  electron 

| 

temperatures  at  the  end  of  each  time  step.  The  ion  momentum  and  continuity 
equations, enclosed  within  a larger  dashed  block  in  Figure  2,  are  solved 
simultaneously  by  an  iterative  procedure  and  intereact  as  a unit  with  the  other 
elements  of  the  code.  Referring  to  Figure  2 we  see  that  they  require  the 
previously  calculated  ion  and  electron  temperatures  and  produce,  in  their  turn, 
the  ion  density,  velocity  and  flux  profiles  used  by  the  energy  and  2-stream 
equations  of  the  next  time  step. 

The  Minimization  Function  of  the  Density  Equations 

A Newton  iteration  similar  to  that  described  by  Hastings  and  Roble  (1977) 
is  used  to  solve  the  finite  difference  equations.  An  important  consideration 
is  the  choice  of  the  function  F to  be  minimized.  As  will  become  evident  from 
the  discussion  that  follows  the  most  suitable  choice  for  F is  an  integral  form 
of  the  coupled  parabolic  density  equations.  The  integration  is  carried  out 
between  limits  located  midway  between  grid  points,  e.g.,  if  the  function  at 
the  kth  point  is  denoted  by  F^»  the  integration  is  carried  out  between  points 
k-1/2  and  k+1/2,  i.e., 
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(12) 


Between  grid  points  in  regions  B or  B*  densities  are  interpolated  linearly  in 
evaluating  (12) . This  approach  lends  itself  naturally  to  the  use  of  integration 
steps  of  arbitrary  size  with  automatic  conservation  of  total  ion  count.  The 
approach  may  be  termed  a "flux  preserving  method".  It  is  the  choice  of  this 
approach  which  renders  the  linking  of  the  second  and  first  order  equations  a 
simple  procedure.  The  use  of  an  integral  form  of  the  continuity  equation  there- 
fore simplifies  the  inclusion  of  region  C in  an  iterative  solution  scheme. 

In  this  case  we  integrate  from  boundary  2 to  boundary  2*,  across  the  entire  region 
C. 


(13) 


where  the  densities  at  the  many  grid  points  between  boundaries  2 and  2*  are  no 
longer  interpolated,  but  rather  calculated  from  the  densities  at  point  2 via 
numerical  integration  of  physically  realistic  equations  of  diffusive  equilibrium. 
This  may  be  expressed  in  functional  form  as 
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N.(k)  = G.  (N1(2),  N2(2),  k) 


(14) 


at  some  point  k of  region  C.  The  fluxes  used  in  the  continuity  equation  of 
region  C are  calculated  via  the  full  momentum  equations  which  are  still  valid 
at  the  boundaries  2 and  2*. 

The  Finite  Difference  Scheme 

We  use  the  following  scheme  to  evaluate  the  time  average  of  the  parameter 
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The  parameter  0 provides  the  option  to  select  the  finite  difference  scheme,  with 
6 = 1/2  for  Crank-Nicholson  and  0=1  for  Laasonen  differencing  for  example. 

Referring  to  Figure  3,  we  see  that  the  computation  of  eq . (12),  totally 
within  one  of  the  regions  B or  B*  is  based  upon  the  ion  densities  at  three 
adjacent  grid  points,  each  one  of  which  receives  an  independent  correction  in 
the  iterative  solution.  A polynomial  interpolation  is  used  to  interpolate  the 
densities  between  3 consecutive  grid  points.  The  computation  of  equation  (13) 
on  the  other  hand  involves  a number  of  dependent  densities  at  intervening  points 
as  well  as  the  densities  at  points  2B,  2A  and  2B* . The  boundary  fluxes  4>(2) 
and  j>(2*)  are  each  calculated  from  the  densities  at  the  adjacent  point  pairs 
(2B,  2A)  and  (2A*,  2B*) , respectively.  It  is  to  be  noticed  however  that  the 
ion  densities  at  point  2A*  are  not  independent,  but  computed  via  the  equations 
of  diffusive  equilibrium  from  the  densities  at  point  2A.  The  integral  terms 
also  involve  dependent  ion  densities  at  all  the  grid  points  between  2A  and  2B* . 
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In  summary,  even  though  equation  (13)  involves  all  the  grid  points  of 
region  C,  only  the  densities  at  the  points  2B,  2A  and  2B*  receive  independent 
corrections  during  the  iterative  solution  procedure.  In  principal  the  entire 
region  C acts  as  a single  "heavy  point",  keyed  to  the  density  at  2A,  in  the 
Newton  Raphson  solution  of  the  density  equations. 

The  use  of  an  integrated  continuity  equations  makes  the  adoption  of  a 
variable  step  size  practically  automatic  as  mentioned  above.  Short  steps 
(3-4  km)  must  be  used  near  the  lower  boundaries,  while  steps  of  several  hundred 
km  may  be  used  in  the  plasmasphere , and  the  entire  region  C serves  as  a single 
long  step  in  the  middle. 

The  iterative  solution  to  the  temperature  equations  is  obtained  differently 
than  that  for  the  continuity  and  momentum  equations  discussed  above.  Vihen 
the  ion  and  electron  heat  flow  equations  (5)  and  (6)  are  substituted  into  the 
ion  and  electron  energy  equations  (3)  and  (4) , the  latter  become  parabolic 
equations  in  the  temperature.  For  these  equations  we  have  expressed  the 
spatial  step  in  terms  of  the  modified  dipole  coordinates  which  were  used  to 
determine  the  grid  points  along  the  field  line.  In  terms  of  the  dipole 
coordinates,  the  step  size  is  actually  a constant,  and  the  equations  of 
temperature  are  expressed  in  the  standard  finite  difference  form  and  then 
solved  by  a Newton  iteration  in  which  all  the  grid  points  of  region  C re|eive 
independent  corrections.  f 

2 . 5 Control  Options 

In  order  to  adapt  the  code  to  the  simulation  of  a variety  of  geophysical 
conditions,  locations  and  analysis  procedures  it  is  desirable  to  be  able  to 
adjust  a number  of  model  parameters  and  options  with  each  run.  The  control 
options  of  this  code  fall  naturally  into  the  three  categories  of  geophysical 
activity,  geometry,  and  numerical  analysis  as  outlined  in  Table  1.  The 
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planetarv  index  A , the  10.7  cm  solar  flux  and  the  daily  average  10.7  cm  flux 
P 

serve  to  define  the  state  of  solar  and  geophysical  activity.  They  are  used 
internally  to  make  appropriate  adjustments  in  the  MS1S  neutral  atmosphere 
model  (see  Figure  2) . 

Referring  again  to  Figure  1,  the  geometrical  definition  parameters  include 
the  L shell  and  magnetic  longitude,  which  determine  the  location  of  the  chosen 
magnetic  flux  tube  relative  to  the  earth.  The  U.T.  date  and  time  and  the 
ephemeris  transit,  then  precisely  determine  the  rotation  of  the  earth  and  flux 
tube  about  the  geographic  axis.  Finally  with  the  declination,  we  fully 
determine  the  position  and  orientation  of  the  magnetic  flux  tube  relative  to 
both  the  earth  and  the  sun. 

The  first  two  numerical  analysis  parameters  required  are  the  boundary 
altitudes  Z(l)  and  Z(2),  which  define  the  regions  to  which  we  must  apply  our 
high  and  low  altitude  formulations.  The  number  of  grid  points  and  the  point 
distribution  parameter  suffice  to  determine  the  position  of  individual  points 
along  the  flux  tube.  They  may  be  concentrated  at  low  altitudes  in  a smoothly 
varying  fashion  or  spread  out  more  evenly  as  desired.  We  have  been  able  to 
simulate  an  L=2  flux  tube  with  only  250  points.  A sequence  of  variable  size 
time  steps  must  also  be  defined  for  the  simulation.  With  time  and  spatial 
steps  now  completely  defined  the  code  internally  calculates  all  of  the  ambient 
parameters  of  the  environment  which  are  needed  at  each  time  and  point  of  the 
plasma  simulation.  Referring  to  Figure  2 we  see  that  all  the  geometrical 
and  field  quantities  may  be  calculated,  the  neutral  atmospheric  densities  and 
temperature  and  the  primary  photoelectron  production,  with  the  input  of  the 
above  control  parameters. 
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TABLE  1 


Control  Options  and  Parameters 


Geophysical  Activity 
A 

P 

F 10.7 
F 10.7 


Output  Parameters 

Various  print  options  are  available: 
half  or  all  of  the  profile  print  at 

th  j 

every  n grid  point 


Geometrical  Definition  Parameters 
L Shell 

Magnetic  Longitude 
UT  Date 
UT  Time 

Ephemeris  transit 
Declination 


The  code  may  be  run  with  Crank-Nicholson , implicit  or  any  type  of 
intermediate  finite  differencing  scheme  under  the  control  of  the  implicit 
fraction  parameter.  Thus  if  0^  is  input,  would  be  approximated  as  0^N^ 

(t  + At)  + (1  - 0^)  N^(t)  and  so  on.  Either  fully  time  dependent  or  steady 
state  simulation  may  be  selected  via  another  parameter  which  artificially  nulls 
the  explicit  time  derivative  term  in  the  ion  continuity  equation. 

Finally,  we  have  several  output  options.  The  basic  outputs  are  the  ion 
densities  and  velocities  and  the  ion  and  electron  temperatures  at  the  grid 
points.  Print  options  include  printing  half  or  all  the  profile  at  selected 
grid  points,  e.g.,  every  third  point.  Optional  outputs  include  individual 
terms  in  the  ion  continuity  and  momentum  equations,  which  have  proved  very 
useful  in  analyzing  the  causes  of  simulated  ion  flows  and  densities.  These 
printouts  may  be  for  any  specified  point  count  range  or  the  entire  field  line. 

2 . 6 Typical  Results 

We  first  discuss  the  tests  we  performed  to  demonstrate  that  the  simulation 
converges  to  a stable  steady  state  solution.  We  then  analyze  the  steady  state 
ion  fluxes,  and  finally  we  present  simulations  of  the  collapse  of  the  sunset 
ionosphere.  This  work  has  been  reported  by  Young  et_  a_l . (1979a). 

For  the  stability  test,  the  rotation  of  the  earth  and  the  time  evolution 

of  all  locally  computed  parameters  were  frozen  at  UT  17:33  Aug  10,  and  furthermore 

set  artificially  to  N-S  symmetry  about  the  magnetic  equator  of  an  L * 2 field 

line  at  approximately  70  W longitude.  Our  temperature  model  for  this  test 

featured  T.  = 4500°K,  T = 5500°K  at  the  magnetic  equator  and  T = T = 500°K 
i e & i e 

at  120  km.  To  obtain  a steady  state  solution  the  time  derivative  terms  of 
equations  (12)  and  (13)  were  set  equal  to  zero  and  the  simulation  allowed  to 
iterate  to  convergence. 
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Using  Che  steady  state  solution  as  an  initial  condition  we  then  allowed  the 
simulation  to  run  in  the  time  dependent  mode,  but  with  all  the  local  ambient 
parameters  still  frozen  at  UT  17:33.  Using  many  5 minute  time  steps  we  found 
that  the  time  dependent  density  profile  simulation  did  not  drift  and  displayed 
an  oscillation  of  less  than  one  part  in  a million  about  the  steady  state  solution. 
The  profiles  also  proved  to  be  symmetric  to  better  than  one  part  in  a million. 

We  feel  that  the  results  of  these  tests  constitute  a rigorous  test  of  stability 
and  conservation  of  particles  (Young  _et_  £tl.  , 1979a)  . 

The  steady  state  profiles  show  some  interesting  aspects  of  ion  production 
and  flow  which  indicate  that  the  code  is  reproducing  expected  geophysical 
variations.  The  steady  state  flux  profiles,  denoted  Oh  in  Figure  4,  show 
downflow  of  both  0+  and  H+  below  500  km  but  counter streaming  above  with  0+ 
moving  upwards  and  H+  downwards.  The  peak  0+  downflux  occurs  very  strongly 
near  the  altitude  of  the  0+  density  peak  at  about  250  km  as  shown  in  Figure  5. 

This  can  be  attributed  to  the  fact  that  the  chemical  loss  rate,  due  to  reaction 
of  0+  with  and  02  increases  with  decreasing  altitude  more  rapidly  than  the 
photoionization  production  rate  as  one  approaches  the  0 density  peak  from 
above.  The  net  result  is  that  the  0+  ions  are  actually  flowing  into  their 
region  of  most  rapid  production  (see  Young  e_t  a_l.  , 1979a). 

Above  about  500  km,  the  calculated  0+  flux  is  upward,  as  is  typically  seen 
in  daytime  measurements  (Evans  and  Holt,  1978)  and  the  H is  counterstreaming 
downward.  At  altitudes  above  550  km,  the  counter streaming  H+  and  0+  flux  are 
virtually  equal  in  magnitude  except  for  a small  residual  difference  caused  by 
the  small  amount  of  photoproduction  even  at  very  high  altitudes. 

Photoproduction  and  reactions  with  molecular  neutrals  are  very  small  above 

3N. 

550  km.  Under  steadv  state  conditions  = 0 as  well,  so  with  symmetric 

O t 

conditions,  <t>H+(S)  + <*>0+(S)  = 0 by  conservation  of  charge.  In  a separate  work 
(Young  a]_. , 1979b)  have  shown  that  quite  simply,  counter streaming  is  required 
by  the  continuity  equations.  The  particular  direction  of  the  counter  streaming 
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being  determined  by  the  relative  densities  of  neutral  H and  neutral  0 at 
higher  and  lower  altitudes.  The  counter streaming  of  H+  and  0+  is  a fundamental 
result  for  steady  state  symmetric  simulations  with  closed  magnetic  flux  tube 
models  which  do  not  allow  any  cross  field  movement  of  ions. 

Under  time  dependent  simulations  the  condition  is  weakened  to  an  equivalent 
statement  about  average  fluxes  (Young  j^t  al. , 1979b). 

«t>H+(S)>  = - <4>0+(S)>  (17) 

And  in  non  symmetric  time  dependent  cases  the  locally  valid  equation  is  further 
weakened  to  a statement  concerning  flux  at  both  ends  of  a bounded  portion  of 
a field  line  (Young  ot  a_l. , 1979b). 

(<<|>H+(b)>  - <4>H+(a)>)  = - (<<t0+(b)>  - <<j)0+(a)>)  (18) 

where  a and  b are  two  separate  points  on  the  field  line. 

Although  the  counter  streaming  of  H+  and  0+  is  a fundamental  result  applying 
to  any  model  of  a closed  plasmaspher ic  flux  tube  allowing  field  aligned  transport 
only,  the  effect  has  been  widely  overlooked  in  the  literature  because  it  is 
masked  for  the  most  part  by  diurnal  variations.  Time  averaging  would  be  needed 
to  deconvolve  the  counterstreaming  under  realistic  conditions.  Notable  exceptions 
in  modeling  (Bailey  ejt  a_l . , 1977)  and  measurements  (Vickery,  1979)  have  encountered 
counterstreaming  only  during  short  periods  of  real  or  simulated  time  in  twilight 
conditions  when  the  common  diurnal  component  of  ion  flow  was  on  the  point  of 
reversing  itself.  Careful  measurement  of  the  amount  by  which  (17)  and  (18) 
do  not  hold  true  would  be  a measure  of  the  total  amount  of  cross  field  ion 
diffusion  which  will  eventually  be  needed  in  a truly  accurate  model  of  the 
plasmasphere  (Young  et_  a_l. , 1979b). 
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We  have  also  simulated  an  ionospheric  collapse,  as  might  occur  at  sunset. 

For  this  purpose  we  allowed  the  electron  heating  rate  and  the  photoproduction  rate 
to  decay  exponentially  at  each  point  with  a time  constant  of  20  minutes.  The 
results  are  shown  in  Figure  5 as  curves  annotated  with  the  time  after  the 
initiation  of  collapse.  Times  of  Oh,  lh,  3h  and  lOh  are  shown  for  0+,  while 
only  Oh  and  lOh  are  shown,  for  clarity  of  display,  in  the  case  of  H+. 

The  collapse  of  the  topside  0+  density  profile  is  the  most  profound  sunset 
effect,  while  the  topside  H+  density  profile  only  appears  to  settle  slightly. 

Both  effects  however  are  due  to  the  same  cause:  the  reduction  of  the  topside 
ion  and  electron  temperatures.  In  our  temperature  model,  the  equatorial  temp- 
eratures are  both  reduced  to  about  1100°  after  10  hours  from  initial  values 

of  T.  = 4500°K  and  T = 5500°K  used  for  the  steady  state.  The  concomitant 
l e 

reduction  in  topside  scale  heights  causes  the  0+  density  which  had  a shorter 
scale  height  to  begin  with  to  decrease  more  rapidly. 

It  will  be  noticed  that  the  reduction  of  densities  is  moderate  at  middle 
altitudes  and  then  again  very  pronounced  near  the  lower  boundary  of  our  simu- 
lation. Temperature  effects  have  less  influence  at  low  altitudes.  The  more 
dramatic  decrease  there  is  to  be  expected  however,  because  the  chemical  destruction 
rate  is  much  greater  than  at  the  middle  altitudes. 

The  counterstreaming  reported  for  steady  state  conditions  disappears,  to 
be  replaced  within  about  one  hour  by  downstreaming  of  both  ions  everywhere. 


Even  after  lOh  however,  there  remains  a residual  pattern  that  looks  as  if  the 
steady  state  counterstreaming  were  superimposed  upon  a net  downflux.  It  would 
appear  that  the  profiles  are  still  in  the  process  of  adjusting  to  the  reduced 


The  H+-0+  transition  height  is  also  lowered  at  night.  Where  it  was  1150  km 
under  daytime  steady  state  conditions  it  drops  to  only  650  km  after  lOh.  The 
lower  transition  height  is  a combined  effect  resulting  from  the  reduction  of 
both  the  neutral  and  ion  scale  heights  under  the  lower  temperature  post  collapse 
conditions.  Note  that  the  H+  density  actually  increases  at  around  800  km.  The 
basic  features  agree  with  Evans'  and  Holts'  (1978)  geophysical  observations 
and  demonstrate  clearly  that  the  code  is  working  properly. 

Temperature  Results 

The  model  has  also  been  used  to  simulate  experimental  data  from  the  S3-3 
satellite,  for  orbit  number  1035  (Rich  et  al.,  1978).  A comparison  between 
the  theoretical  electron  temperature  and  measurements  is  shown  in  Figure  6. 

The  most  significant  feature  of  the  comparison  is  the  good  agreement  between 
the  theoretical  and  experimental  electron  temperature  gradients.  Previous 
measurements  have  indicated  the  existence  of  large  temperature  gradients  in  the 
magnetosphere  (Brace,  1970;  Serbu  and  Maier , 1966).  Such  large  gradients  are 
inconsistent  with  the  classical  thermal  conductivity  of  Spitzer,  which  has  been 
used  in  our  model,  and  which  produces  small  gradients  at  high  altitudes.  Mayr 
and  Volland  (1968)  have  shown  that  outside  the  plasmapause  where  densities  are 
very  small,  the  thermal  heat  flow  is  greatly  reduced.  On  the  other  hand,  Mayr 
et  al.  (1973)  showed  that  within  the  plasmasphere  the  thermal  conductivity  is 
only  slightly  changed  from  the  classical  theory.  We  have  chosen  to  use  the 
Spitzer  form  of  the  thermal  conductivity  until  further  theoretical  work  produces 
a different  result. 

Although  the  theoretical  temperatures  in  Figure  6 are  within  the  error 
bounds  of  the  S3-3  results,  such  high  temperatures  were  only  obtained  by  including 
an  extra  heat  source  in  the  protonosphere.  For,  even  under  the  assumption  that 
all  photoelectrons  leaving  the  ionosphere  lose  their  heat  in  the  protonosphere. 
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the  plasmaspher ic  electron  temperature  was  400°K  lower  than  the  data.  The 
need  to  include  an  extra  heat  source  may  be  due  to  the  calculated  photoelectron 
fluxes  being  too  small.  Comparison  of  theoretical  and  measured  photoelectron 
fluxes  seem  to  indicate  that  the  theoretical  fluxes  may  be  too  low  by  a factor 
of  2.  However,  the  question  is  not  yet  resolved,  and  there  is  still  a possi- 
bility that  an  extra  heat  source,  such  as  wave-particle  interactions  may  need 
to  be  included. 

A further  indication  that  the  classical  theory  is  adequate,  is  that  the 
model  not  only  reproduces  high  altitude  temperatures,  but  low  altitude  temp- 
eratures compare  favorably  with  typical  measurements.  This  can  bee  seen  in 
Figure  7 where  the  low  altitude  theoretical  temperatures  are  plotted  alongside 
1964  Millstone  Hill  data  (Evans,  1967) . Although  the  theoretical  temperatures 
are  slighly  higher  than  the  experimental  temperatures,  they  fall  well  within 
the  day  to  day  range  of  variability  indicated  by  the  data. 

The  time-dependent  capabilities  of  the  program  are  illustrated  in  Figure 
8.  Starting  with  the  conditions  indicated  by  Figure  6,  the  heating  rate  was 
reduced  to  simulate  the  decay  of  electron  temperature  at  night.  During  the 
day,  temperature  changes  are  small,  but  during  the  night  the  temperature  decays 
very  rapidly  at  low  altitudes  and  less  rapidly  at  high  altitudes  where  heat 
conduction  is  important  and  local  heat  loss  is  small. 

It  can  be  seen  from  Figure  8,  that  although  T^  > T^  during  the  day,  at 

night  T > T after  less  than  an  hour,  because  electrons  lose  heat  by  conduction 
i e 

faster  than  ions.  (The  curves  in  Figure  8 represent  hourly  intervals).  Figure 
8 also  shows  that  the  rate  of  decay  of  electron  temperature  decreases  with  time 
as  would  be  expected  because  of  the  high  temperature  dependence  of  the  thermal 
conductivity.  The  temperature  results  shown  here  are  similar  to  those  obtained 
by  Richards  and  Cole  (1979)  using  the  searching  procedure.  However,  the  above 
results  are  more  accurate  because  the  solution  of  the  equations  is  simultaneous, 
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and  because  the  whole  field  line  has  been  simulated  rather  than  assuming  zero 
heat  flux  at  the  equatorial  plane. 

Comparison  of  Model  with  AE  Data 


Figure  9 gives  a comparison  between  AE  0+  density  data  and  that  calculated 
from  the  model.  The  data  were  taken  from  orbit  2758  of  the  AE-C  satellite, 
near  12.77  hrs  UT. 

Agreement  in  the  altitude  range  200-400  km  is  good  but  above  400  km 
agreement  is  very  poor.  Comparison  between  satellite  data  and  the  model  is 
complicated  by  the  latitudinal  variation  of  the  data.  During  this  pass  the 
high  altitude  data  was  taken  near  L = 3.5  while  the  low  altitude  data  was 
taken  near  L * 1.5.  The  differences  between  data  and  theory  could  be  due  to 
latitudinal  gradients  of  density. 

The  electron  and  ion  temperatures  are  compared  in  Figure  10.  The  agreement 
in  this  case  is  much  better  than  for  the  density.  The  disagreement  between  the 
measured  and  theoretical  ion  temperatures  below  450  km  indicates  that  the  MSIS 
model  neutral  temperature  may  be  too  low  for  this  particular  day. 


2.7  Future  Improvements  to  the  Simulation 


Our  simulated  density  profiles  show  that  our  approximation  of  dynamic 
equilibrium  is  satisfactory  for  H+  and  0+  above  the  altitude  where  H+  becomes 
the  only  major  ion.  Nevertheless  there  is  an  almost  imperceptible  discontinuity 
in  the  density  gradients  at  boundaries  2 and  2*,  so  we  intend  to  include  ion-ion 
collisions  at  the  very  high  altitudes  at  a later  date.  Two  possible  ways  to  do 
this  present  themselves.  One  is  to  formulate  0+  density  as  a parabolic  equation 
at  all  altitudes  (regions  B,  C and  B*)  , but  retain  first  order  momentum  and 
continuity  equations  for  H+  at  high  altitudes  (region  C) . Another  way  is  to 
upgrade  the  dynamic  equilibrium  solutions  iteratively  by  calculating  each 
from  the  continuity  equation  integrated  between  boundary  2 and  2*,  and  then 
substitute  it  into  the  collision  terms  of  the  full  momentum  equation 


B(S) 

Vi(S')  " N.  (S) 


r * . (2)  rs  . SNi  ds  1 

{tuT+]2  "i'Vi ' B<«J 


The  velocity  in  equation  (21)  would  be  calculated  from  the  previous  iteration. 
Note  that  Q.  will  now  be  equal  to  some  small  correction  number,  rather  than 
identically  equal  to  zero,  as  used  in  the  dynamic  equilibrium  approximation. 

The  code  will  be  used  to  study  a number  of  geophysical  problems  including 
diurnal  variations  under  a number  of  geophysical  conditions,  effects  of  inter- 
hemispheric  flows,  magnetospheric  substorms  and  seasonal  and  solar  cyclic  varia- 
tions upon  profiles,  flux  tube  content  and  filling  processes.  Future  simu- 
lations will  be  compared  extensively  with  satellite  and  ground  based  measurements. 
The  electron  and  ion  energy  equations  will  be  simulated  simultaneously  as  well. 
Future  runs  should  therefore  shed  considerable  light  upon  diurnal  variations, 
plasmaspher ic  heat  sources,  ion  fluxes  and  the  maintenance  of  the  nighttime 
ionosphere. 


2 . 8 Conclusions 


We  have  achieved  the  most  comprehensive  simulation  to  date  of  field  aligned 
plasma  transport  in  the  plasmasphere . The  plasma  simulation  itself  incorporates 
the  best  aspects  of  two  older  methods  in  a unified  mathematical  model  and  uses 
accurate  geophysical  parameters  to  produce  an  accurate  and  meaningful  solution 
to  the  geophysical  plasma  problem. 

We  have  shown  that  we  can  link  the  solutions  for  an  entire  flux  tube 
connecting  the  ionosphere  and  protonosphere  even  though  it  passes  through  several 
regions  that  require  different  sets  of  differential  equations  to  approximate 
conditions  in  different  regimes.  We  have  derived  the  continuity  relations 
across  the  boundary  regions  between  different  approximations,  necessary  for 
this  type  of  approach,  which  must  replace  artificially  specified  boundary 
conditions  used  in  previous  work.  We  have  shown  that  a high  altitude  counter- 
streaming of  H+  and  0+  must  and  does  result  under  steady  state  conditions. 
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Figure  Captions 

Figure  1.  Regions  and  Boundaries. 

A,  A*  Regions  of  local  chemistry 

B,  B*  Ion  diffusion  regions  where  parabolic  density 

equations  can  be  formulated 

C Dynamic  equilibrium  region 

1,  1*,  2,  2*  Boundaries  between  adjacent  regionsrat  1 and  1* 

densities  are  continuous^,  while  at  2 and  2*  both 
density  and  flux  are  continuous 


Figure  2 Overall  Schematic. 

The  symbols  on  the  diagram  are 

T£  = electron  temperature 

T^  = ion  temperature 

T = neutral  temperature 
n 

N.  = ion  density 

l 

N = neutral  density 
n 

<f  = electron  flux 
e 

<(>  = ion  flux 

l 

Ion  Con  = Ion  continuity  equations 
Ion  Mom  = Ion  momentum  equations 

The  high  altitude  regime  is  denoted  "Dynamic  Equilibrium"  while 
the  low  attitude  regime  is  denoted  parabolic  EQ. 
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Figure  3.  Schematic  of  spatial  grid. 

It  is  to  be  noticed  the  boundaries  2 and  2*  are  each  straddled  by  the 
pairs  of  points  (2A,  2B)  and  (2A*,  2B*)  respectively,  from  which  the 
boundary  fluxes  are  calculated.  The  boundaries  1 and  1*  on  the  other 
hand  fall  exactly  upon  the  first  and  last  point.  The  densities  at 
these  points  are  calculated  via  local  photochemical  equilibrium. 

Both  densities  at  each  of  3 points  are  needed  to  calculate  each  finite 
difference  equation  used  in  the  Newton  Raphson  Iterative  solution. 

The  three  points  are  adjacent  for  equation  12  but  not  for  equation  13. 
The  three  points  needed  to  calculate  equation  13  are  2B,  2A  and  2B*. 
Figure  4.  Simulated  Ion  Fluxes. 

Both  H and  0 fluxes  are  shown.  Oh  denoting  steady  state  collisions, 
and  lOh  the  ion  fluxes  lOh  after  a simulated  ionospheric  collapse. 

For  steady  state  conditions,  denoted  Oh  in  the  figure,  the  H+  flux  is 
downward  everywhere  while  the  0+  flux  is  divided  into  a downward 
regime  below  500  km  and  an  upward  regime  above.  It  is  apparent  that 
above  about  600  km,  where  0+  + H H+  + 0 are  the  only  chemical 
reactions  the  two  fluxes  are  virtually  equal  and  opposite.  Another 
striking  feature,  comparing  with  Figure  4 is  that  the  maximum  0+  flux 
occurs  right  at  the  maximum  in  the  0+  density  profile. 


Ten  hours  after  the  collapse,  de  .oted  lOh,  both  fluxes  are  everywhere 
downward.  The  0+  downflux  is  higher  than  previously  at  high  altitudes, 
but  lower  below  350  km  because  of  a decrease  in  ion  density. 

Figure  5.  Simulated  Ion  Densities. 


For  H , curves  for  steady  state  conditions  and  ten  hours  after  the 
collapse  denoted  Oh  and  lOh  respectively,  are  shown.  For  0 the  curves 
denoted  Oh,  lh,  3h  and  lOh  denote  steady  state  and  then  one,  three  and 
ten  hours  after  the  simulated  ionospheric  collapse. 


Figure 


Figure 


Figure 


Figure 


Figure 


6.  The  results  of  a theoretical  simulation  of  the  S3-3  satellite  measure- 
ments for  orbit  #1035.  The  theoretical  results  have  been  obtained 
through  a steady  state  solution  of  the  energy  equations.  An  extra 
heat  source  was  needed  to  obtain  comparable  temperatures. 

7.  Comparison  of  theoretical  results  with  the  data  of  Evans  (1967)  at 
low  altitudes.  The  lower  temperatures  of  the  data  indicates  that  the 
plasmaspher ic  temperature  was  lower  in  1964  than  that  measured  by 
S3-3  in  1976. 

8.  Ion  and  electron  temperature  decay,  starting  with  the  conditions  of 
Figure  1 and  switching  off  the  heating  source.  The  curves  are  given 
at  hourly  intervals. 

9.  Comparison  between  model  and  AE-C  0+  densities  for  AE-C  orbit  number 
2758. 

10.  Comparison  between  model  and  AE-C  ion  and  electron  temperatures  for 
AE-C  orbit  number  2758. 
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3.0  APPENDICES 

3 . i SUMMARY  OF  CONTRACT  OBJECTIVES 

This  study  falls  under  the  general  category  of  "Plasma  exchange  between 
the  ionosphere  and  magnetosphere".  We  have  contracted  to  carry  out  the  following 
work . 

a)  Solve  general  transport  equations  for  the  F region  and  topside  iono- 
sphere . Solutions  will  subsequently  be  compared  with  those  derived  from  con- 
ventional measurements  including  results  from  plasma  measurements  made  by  Injun 
V,  ISIS-I  and  AF  S3-2  and  S3-3  satellites.  The  sensitivity  of  these  solutions 
to  varying  geophysical  conditions  will  be  assessed  by  appropriate  variation  of 
parameters  and  where  practical  analytical  expressions  will  be  derived  for 
parameters  including  drift  velocity,  and  thermal  diffusion  in  a multicomponent 
plasma . 

b)  Compare  solution  of  the  transport  equations  for  0+.  H+  and  electrons 
with  data  obtained  from  the  Arecibo  Observatory  sounder.  These  computations 
will  be  made  for  days  when  a full  diurnal  cycle  of  operation  at  Arecibo  and 
simultaneous  neutral  densities  from  Atmosphere  Explorer  satellites  are  avail- 
able . 

c)  Extend  studies  to  include  effects  of  thermal  diffusion  and  thermo- 
electric effects.  Electron  and  ion  temperature  will  be  computed  along  magnetic 
field  lines  extending  into  the  conjugate  region,  and  the  results  applied  to 
study  of  downward  flux  of  plasma  in  nighttime  F region,  filling  of  depleted 
field  tubes  after  magnetic  storms,  and  the  discrepancy  noted  by  Massa  between 
calculated  and  observed  ll+  densities  for  Millstone  Hill  incoherent  scatter 
facility.  The  low  altitude  effect  of  neutral  winds  on  these  processes  will 

be  studied. 

d)  Give  examples  of  the  computer  codes  employed  in  the  work  described 
in  paragraphs  2.0  a,  b,  and  c of  this  report. 
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3.2  CUMULATIVE  CHRONOLOGICAL  NARRATIVE 


! 


i< 


During  the  first  quarter,  Drs.  J.  P.  St.  Maurice  and  R.  W.  Schunk  derived 
a set  of  two  ion  diffusion  and  heat  flow  equations  for  application  to  the 
midlatitude  topside  ionosphere.  In  this  approach  the  velocity  distributions 
are  expanded  about  the  drift  velocity  of  each  component.  Several  new  transport 
effects  not  evidenct  in  the  classical  Chapman-Ensog  formulation  were  discovered 
as  a result  of  this  new  approach. 

During  the  second  quarter  the  diffusion  and  thermal  conduction  equations 

Computer  routines  were  developed  for  the  inversion  of  both  stepped  band  matrixes 

and  general  sparse  matrixes.  The  stepped  band  matrix  inverter  is  used  in  the 

current  code.  It  was  decided  that  chemical  rate  coefficients  for  reactions  of 
+ 

0 with  neutrals  should  be  determined  from  AE  satellite  measurements  rather 
than  lab  data,  because  the  conditions  in  the  laboratory  do  not  accurately 
represent  the  vibrational  and  speed  distributions  in  the  ionosphere. 

In  the  third  quarter,  a numerical  predictor  corrector  method  was  proposed 
and  derived  to  replace  the  Newton  iteration  technique.  This  technique  was  not 
exploited  in  subsequent  quarters,  but  could  still  prove  valuable  in  future  work. 

In  the  fourth  quarter,  a number  of  programming  and  geophysical  errors 
were  eliminated  from  the  code. 

During  the  fifth  quarter,  the  ion  diffusion  equations  of  St.  Maurice 
and  Schunk  were  reformulated  slightly  to  include  ion-neutral  collisions. 

This  allowed  their  substitution  in  the  continuity  equations  which  then 
became  parabolic  density  equations.  An  innovative  step  was  also  taken  by 
formally  integrating  these  equations  before  applying  finite  differencing 
approximations.  This  technique  automatically  allowed  the  use  of  a variable 
spatial  step  size,  and  greatly  facilitated  the  solution  of  the  interhemispheric 
coupling  problem. 


62 


Additional  numerical  problems  were  overcome  during  the  sixth  quarter, 
ii  was  found  that  the  determinant  which  arises  in  the  solution  of  the  simul- 

. c “f*  4" 

taneous  diffusion  equations  for  0 and  H is  the  small  difference  of  several 
large  terms  which  nearly  cancel  each  other.  When  two  of  the  terms  were 
cancelled  analytically  and  the  order  of  addition  of  the  remaining  terms 
optimized,  the  numerical  accuracy  and  stability  were  greatly  improved. 

During  the  seventh  quarter,  the  heat  conduction  and  energy  code  became 
operational . 

A photoelectron  2-stream  program  of  Nagy  and  Banks  (1970)  was  adopted 
to  field  line  coordinates  so  that  it  could  be  extended  beyond  its  original 
limited  altitude  range.  This  provided  electron  heating  rates.  Also  the 
parabolic  temperature  equations  were  written  as  a variable  step  length  function 
of  dipole  coordinates  which  greatly  facilitated  the  treatment  of  the  great 
distances  involved  in  an  entire  field  line.  Upon  comparison  of  our  simulated 
results  with  the  satellite  measurements  of  Rich  e_t  a_l.  (1978),  it  was  found 
necessary  to  postulate  an  additional  heat  source  to  bring  the  simulated 
plasmaspher ic  temperatures  up  to  those  of  the  measurements.  This  remains  a 
puzzle  on  lower  L.  shells,  but  we  are  currently  convinced  that  the  results 
are  satisfactory  for  L = 3 and  compare  well  with  observations  from  Millstone 
Hill. 

During  the  eighth  reporting  period  some  remaining  problems  with  high 
ulLitudc  convergence  were  solved  by  assuming  a two  ended  diffusive  equilibrium 
profile  above  ubouL  1500  km.  The  derivation  of  proper  boundary  relations 
boLwecn  2 Low  altitude  regions  of  parabolic  equations  and  the  high  altitude 
region  of  diffusive  equilibrium  profiles  is  a crucial  step  which  allowed  the 
Newton  iteration  to  work  properly  and  simulate  the  density  and  momentum 
equations  for  an  entire  field  line.  Dr.  Young  presented  two  talks  as  follows 
on  our  new  method  and  preliminary  results. 
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(1)  " Intel-hemispheric  coupling  of  hydrogen  and  oxygen  ions  in  Che  plasmasphere" , 

Talk  at  the  1978  Fall  Convention  of  the  American  Geophysical  Union,  4 Dec. 

1978,  San  Francisco. 

(2)  "Method  and  preliminary  results  of  a simulation  of  a coupled  ionosphere 
and  plasmasphere",  Geophysics  Seminar,  University  of  Washington,  8 Dec. 

1978,  Seattle,  WA. 

During  the  9th  reporting  period  additional  geophysical  simulations  were 
performed.  A journal  article  was  submitted  to  Journal  of  Computational  Physics 
detailing  our  innovative  numerical  methods  of  solving  the  continuity  and  momentum 
equations  and  analyzing  fluxes  and  density  profiles  both  in  the  steady  state 
and  under  conditions  simulating  the  post-sunset  collapse  of  the  ionosphere. 

During  the  tenth  and  final  reporting  period  the  continuity,  momentum, 
temperature  and  heat  flow  and  photoelectron  two-stream  codes  were  finally 
working  in  combined  form  on  the  CRAY-1.  With  this  combined  code,  which  is 
described  in  the  report  on  scientific  work  section  of  this  report,  we  have 
simulated  up  to  lOh  of  geophysical  time.  A paper  is  being  prepared  for 
J.  Geophysical  Research,  but  we  are  currently  stalled  because  we  have  run 
out  of  time  on  the  CRAY-1.  CRAY-1  time  is  the  only  thing  we  need  to  finish 
the  JGR  paper . 
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...  ..o.pliei  ic  flux  tube.  Talk  to  Plasma  Science  Group,  Huntsville,  Alabama 
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11 ,0=PL IB.DN^RSMN.DL 

1  C I RSMN) 

2  C....  IHIS  MAIN  PROGRAM  RtADS  INITIAL  CONDITIONS  AND  SETS  U P THE 

3  C....  COORDINATE  SYSTEM  AND  N E J T K A L ATMOSPHERE  » » N C T E S(4500)  FOR  D300 

4  C “ “ “ 

5  (.  S - A RR  A Y USED  IN  THE  MATRIX  SOLVER  : D,T=ARRAYS  FOR  TRANSFERRING 

6 C NEUTRAL  DENSITIES  FROM  SUBR  AMBS  TO  MAIN  l F YON= A STORAGE  ARRAY 

7 C FOR  ION  PRODUCTION,  USED  TO  PREVENT  ZERO  ION  DENSITY  AT  NIGHT 

6 C P ROD  = ARRAY  FOR  TRANSFERRING  DATA  BETWEEN  SUER  PEPR  AND  MAIN 

9 c N - 1 ON  DENSITY  : Tl  = ION  AND  ELECTRON  TEMPS  : F-AP.  RAY  STORING  FIJ'S 

10  C DNDT  = DN/DT  FOR  PREDICTION  OF  NEXT  DENSITY  : U=VELOCITY  STORAGE 

11  C BG=VARIABlF  codroinate  factor  : BM=MAGNETIC  fielo  strength  : 

12  c GR= GRAVITY  : R = GE  GC  E N TR  1 C RADIUS  TP  GRID  PT  : 5L=ARC  LENGTH 

13  C ITEMS  IN  CCMMON/ND/  ARE  NEUTRAL  DENSITIES  AND  TEMP  *,  PH10N=10N 

14  C PRODUCTION  RATE  I Z=ALT  ; JmAX=MAX  NUMBER  OF  GRID  PTS  J JMAX1= 

15  C JMAX-1  JNSAVE ,T 1SAV -STORAGE  ARRAYS  FOR  PREVIOUS  DEnSITY/tEMP 

1 1> C FY=10N  FLUX  STORF  ; UN=NEUTRAL  WIND  VELOCITY  \ EHT  = ELEcTRON 

17  C HEATING  RATE  ; JLL  AND  JUL  ARE  LOW  AND  UP  LIMITS  FOR  PRINTING 

lo C 

19  IMPLICIT  REAL(N) 

20  REAL  Z.DT.DH,  TKF  .EPS  ,D  , T , ZZJ  ,SEC  ,GLAT  ,C-L  ,CH1  t AP  .DEC  , ETRAN 

21  1 ,BL0N,F107,F107A,MG.TF,FY0N,5ZA (300) 

22  INTEGER  NION.NEO 

23  DIMENSION  S ( 45 00  I , D ( 7 ) , T ( 2 ) , G L ( 300 ) , F 0 ( 9 ) , F Y UN ( 300 ) , PR GD ( 3 , 3 00 ) 

24  DIMENSION  N ( A . 3 D 0 ) , T I ( 3 , 3 00  ) , F ( 2 ) ,G l A T ( 3 00  ) . P S EC ( 3 00  ) , DND T ( 2 , 300 ) 

2 5 COMMON/ VN/U ( 2 . 300 ) , 3G ( 3OO ) , BM ( 300 ) , GR I 2 , 300 ) , R ( 2 , 3 00 ) , SL ( 3 00 ) 

2 o COMMON /NO /ON (3  00  I . HN ( 3 OC ) .N2NI300) ,C2N(  300),PHI0N(300),TN(300) 

27 CCMM0n/ALT/Z(300>, JMAX , JM AX  1 , DT  ,DH,  THE. I TER»EPS,NIQN»TF,1TF 

2 COMMGN/SAV/NSAVe ( 2 , 300 ) , T I S A V ( 3 , 3 00  I , F Y ( 2 , 300 ) , UN ( 300 > , EHT ( 300 ) 

29  COMMON/LPS/EPSN, OC , IMCD, 1 1, 12 , 1PRIN , IPMX  , IPP, ISKP 

30  COMMON/FON/JGN  , JLK  5)  , JUL  ( 5) 

31  C 

32  C ZUBDY  = BDY  ALT  FOR  DYN  EC  ;;  ( T F , I T F ) = ( 1 , 1 ) FOR  NORMAL  RUN 

33  L ( 3 . 3 ) F OR  STEADY  STaTE  : I SW  IS  SWITCH  FOR  SYMMETRIC  AMBIENTS 

34  C TMAX-  MAX  SIMULATION  TIME  (MINS)  : DT  =T I ME  STEP(SECS)  : JpRINT 

35  C = S W I T C H FOR  PRINTING  AMBIENTS  AND  FIELD  DATA  : V 0- ECU  A T OR  I AL 

36  C VELOCITY  FOR  E XB  DRIFT  : UV=NEUTRAL  WIND  AMPUTUOE  : ZPR^MAX 

-37 C ALT  FOR  ION  PROD  ; JEK=MAX  NO  OF  ENERGY  STEPS  IK  2-STREAM  : 

36 C RE  =R  ADI  US  OF  EARTH  : AMU  = ATOMlC  MASS  : BK=BCLTZMANN  SEPSN.DC 

? 9 C ARE  USED  IN  MODIFIED  STEEPEST  DESCENT  IN  LP5  : ( 1 1 , I 2 ) = ( 1 , 2 ) 

40  C FOR  NORMAL  OPERATION  ,(1,1)  FOR  TEMP  SLTNS  ONLY  (2,2)  FOR  DENSITY 

41  C SLTNS  Only  : lPRIN^PRINT  SWITCH  in  LPS:  1PMX=MAX  no  OF  PTS 

42  C PRINTFD  : I P P = I,'  INTERVAL  EETWEEN  PTS  : THF = I MP L I C I T - E X P L I C 1 T 

43  C FRACTION  : E P S =C ON  V ER GE NC E FRACTION  : NIUN=*  OF  IONS  ’•  SL(1) 

44  C -ARC  LENGTH  S I 0 A Y = Y E AR  ♦ 0 A Y : SEC=UT  : BLCN=M AGNET IC  LONGITUDE 

45  C F107A  ,F 107, AP  ARE  SOLAR  L MAGNETIC  ACTIVITY  INDICES  : DE  C = SOL  AR 

46  C DECLINATION  : ETR A\=EPHEMER IS  TRANSIT 

47  ---  C 

46 DATA  ZUBDY ,TF , I TF  , ISW  , I T AU,  TMAX  , DT  , I LPS , JPR I NT , 1MCD 

49  > / 3000,  3,  3 , 3 , 0 , -1  , 300  , 1 , 22  , 1 / 

50  DATA  VO  , UV  , ZPR  .JEM,  RE  , AMU  , BK 

51  > / 0 , 0 , 900  , tO, 6370, 1 .6726E-24, 1 .3807E-16/ 

52  DATA  EPSN.DC, JSPC  , II , I 2 , IPRI N , IPMX  ,1 Pp , THF  , EPS  ,NION  ,5L ( 1 ) 

5 3 — — — X / ,8  , • 5 , 2,1,2,  I 1 299,  1 , 1 , lE  — 3,2,0  / 

54 OATA  IOAY,  SEC  , BL UN , F 1 0 7A , F 1 0 7 , AP , D E C , E TR AN , 1 SR P , I DNDT 


r>7 
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> / 7A22A,  38809  , -<.0  ,75  , 71  , 5,  18, <.2822,  300,  0/ 

DATA  JUl/22  ,0,0, 0,0/, J L L / 0 , 0 . 0 , 0 , 0 / 

(>♦♦♦  INPUT  DATA  FROM  FILE  (1)::  PCO=LSHELL  ; ZO=LUWER  BOY  ALT  J 

L ♦ ♦ ♦ ♦ SC  AL  =5C  AL I NO  FACTOR  FOR  COORDINATE  SYSTEM 

IF ( 1M0D.E0.0)  READ(l)  J M AX  , P C 0 , Z 0 , SC  A L , 1 A 1 , A 2 , A 3 , A A , A 5 , A fc , A 7 . A B 

> , ( (N< 1 , J)  . J = 1 , JMAX) , I =1 ,21 ,( ( T I ( I , J)  , J = 1 , JMAX) , 1 = 1 ,3) , 

> ( (DNDH  1 ,J»  ,J  = 1 , JMAX)  , 1 = 1,2) 

IFUMbO.EC.l)  REAO(l)  J M A X , P C 0 , Z 0 , SC  AL  , I C AY  , S E C , E T R An  , F 1 0 7 

> .F107A, AP .PLDN.OEC 

> , ( (N(  1 , J) ,J  = 1 , JMAX 1 , 1 =1 ,2) .( ( TI I I , J)  , J=1 , JKAX) , I =1, 31 , 

> H DNDTEI , J) , J = 1 , JMAX) , 1 = 1 ,2) 

JMAX1=JMAX-1 

NE0=2*JMAX-A 

J2MAX  = 2*JMAX- 1 

IECMl=JMAX/2 

IF(JPRINT.GT.JMAX)  JPR1NT=J*AX 

WRITE(6,11A) 

1 1 A F0RMAT(/8X,*IDAY'»,bX,'>MCL«,.6X,*SCAL*,6X,*Z0»,6X,»ZUBDY*,6X, 

> *DEC*,6X,*ETRAN*.bX»*BL0N*,bX,*TMAX*,6X,*F107<>) 

WR  I TE  (b,  103  ) I DAY  ,PCCi,SC  AL.ZO.ZUBOY  ,OEC  , E TR  AN  , BL  ON  , TM  A X , F 107 

WR 1 TE (6, 115  ) 

115  F0RMAT(/9X,*JEM*,7Xt*AP*,7X,*ZPR*,7X,*UV*,7X,*V0*»7X,*F107A*) 

W»lTE(b,103)  JEM , AP ,ZPR ,UV,VO,F 107A ,SAT ,N( 2, 150) ,T 1 ( 3, 150 ) 

C * T I ME  STEP  : END  NEAR  L I WE  195 

DO  221  JTI  = 1 ,100 

WRITE(fc,117) 

117  FORMAT  ( /9X  , *1  TAU*  ,7X  , *DT*,  7X  ,*DT  1*  ,7X,  *UT»  , 7X  , *SZ  A*  , 7X, 

> *SZAC*,7X.*SAT*) 

WRITE(6,103)  IT AU,DT ,DT1 .SEC ,SZAI JCHI) ,SZA( JCHIC) ,SAT 

WRITE ( 2)  JMAX  ,PCO,ZO,SC AL , IOAY ,SEC,ETRAN,F107,F107A,AP,BL0N 

1 ,DEC , ( ( Nil , J) , J=1 , JKAX) , 1=1 ,2) , { ( T II 1 , J) , J=1 , JMAX) , 1«1,3) , 

2 ( (DNDTII.J)  ,J  = 1 , JMAX)  ,1  = 1,2) 

REWIND  2 

IF { I TAU-DT .GT ,60*TMAX)  STGP 

C....  IF  NO  EXB  DRIFT ( VO  = 0 ) DON'T  RECALCULATE  FIELD  P AR AM AT E RS  . . . . 

IV0=0 

lFlVO.EO.O)  IV0=O 

IF(JTI.EG.I)  1 V 0 = 1 

I F ( 1V0.E0.0)  GO  TO  1000 

RPTS= ( JMAX+1 ) /2-1 

DH=1/RPTS 

C...  THIS  LOOP  DETERMINES  FIELD  PARAMETERS  AT  BOTH  FULL  AND  HALF 

C...  POINTS  ON  DDD/EVFN  IJ  *,  AND  FOR  BOTH  HEMISPHERES 

DO  950  I J = 1 ,J2MAX 

CALL  F IELD 1 1 J , J2MAX ,PCJ  ,RE ,Z0 ,SCAL , X , FD) 

J=( I J ♦ 1 1/2 

JU=JMAX*1-J 

IF(IJ.EO.l)  SREF=FD(8)»1.E5 

1F( ( I J/2)*2.E3.I J)  GO  TO  975 

Z ( J ) - F D ( 1 ) 

1 F ( 7 ( J ) .LT.ZUBDY)  JB=J 

IF(ZIJ).LT.AOO)  JCHI=J 

GLIJ)=FD(A> 
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bMI J) = F 0 ( 6 I 
BG  l J ) = F D I 7 ) 

UNI J) =UV*FDI 3 ) 

GR(2,J)=-FD<5) 

R12,J)=IRE*FD(  1) ) * 1 . E 5 
IFIJ.NE.l)  S L ( JI=SREF-F0I3)*l.E5 
I F ( G L ( J ) .EO.O)  GO  TO  1000 
GL ( JU) =-GL ( J ) 
l I JU ) = Z ( J ) 
bMI JU)=BM( J) 

B G ( JU ) = BG ( J ) 

UN( JU)=-UNIJ) 

GR<  2, J J ) = -GR ( 2 , J) 

R I 2 f JU ) =R I 2 » J ) 

SL(JU)=SREF+FD( b)*l  .E5 
GO  TO  950 
CONTINUE 

GR( 1 , J*1 ) =-FD( 5) 

R(l.J) = I R E + FD I 1 > ) *1 . E 5 
G R ( 1 * J J I = -GR ( 1 , J+l) 

R.I 1 , JU-1 ) = R ( 1 ♦ J > 

CONTINUE 

CONTINUE 

CALL  CMINDR  TO  GET  NINtl-O  AND  NIU2-*-)  ;;  CAlL  AMBS  TO  GET  NEUTRALS 
00  17  1 = 1 , JMAX 
IF  ( JTI  .EQ.l ) U I 1 . I ) =0 
IF ( JTI .EQ.l)  U(2 , 1 )=0 
IF ( JTI  .EQ.l)  FYI  1 , 1 ) =0  . 

IF ( JTI . EQ.l ) F Y ( 2 * I ) =0  . 

IF  ( I ONDT+JTI  .EO. 1 ) DNDT  ( 1 , 1 ) = 0 .0 
IF  ( IONDT-t-JTI  .EQ.l  ) DND  T (2*1  ) = 0 . 0 
CALL  CM1NCRI I ,N,TI,EN0P.EN02P) 

N(  3, 1 ) =EN0P+EN02P 
ZL J=Z I I ) 

GL  T M = GL I I ) 

CALL  AMBS(I.10AY,SEC,ZZJ,GlTM,OEC,EtRAN,F1O7,F1O7A,AP,BLL»N 
> , D , T ,CHI , I Y , I OY  , SAT, I 0 .GLATO ) 

ONI  I ) =01 2 ) 

HN ( I ) =D  I 7 ) 

N 2 N I 1 1=0(3) 

0 2 N ( I)=0.5*=D(A) 

TNI  I ) =T I 2 ) 

S Z A ( I ) = C H 1 
GL AT (1 ) =GLATO 
PH  I ONI  I ) =0.0 
EHT l I >=0.0 
CONTINUE 

JCHIC=CONJUGATE  OF  JCHI  ,*  THE  NEXT  FEW  LINES  SETS  THE  NEW 
TIME  STEP  ACC  OR  01 NG  TO  THE  DIFFICULTY  OF  THE  PREVIOUS  SOLTN 
ANO  THE  SOLAR  ZENITH  ANGLE  IN  BOTH  HEMISPHERES 
JCHIC= JMAX+ 1-JCHI 
I F I I TER  .LE  .7)  DT1=*300 
I F I I TER .GT . 7)  D T 1 = -300 

IF l I SZA I JCHI ) .GT.l  .A)  .AND.  (SZAI JCH I) .LT .2.3)1  DTI =-300 
1F(ISZAIJCHIC).&T.1.A).AND.(SZAIJCHIC).LT.2.3))  OT  1 = -300 
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71 

72 

73 
7h 
79 

76 

77 
76 
79 
90 
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82 
83 
9 9 
83 
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87 
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92 
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“6 
97 
96 
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00 
01 
02 
03 
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Co 
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08 
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10 
1 1 
1 2 
13 
19 
1 3 
16 
1 7 
1 o 
1 9 


0T  = D T ♦ D T 1 

1MOT.GT.  1800)  DT  = 1800 
1F(0T.LT.3C0)  D T =300 
1F(JT1.lE.9)  D T = 300 

C...  IF  THE  SUN  ISN'T  SHINING  IN  E I T HER  HEMISPHERE  DON'T  CALC  PROD 
I F ( ( SZA (JCHI ) .GT  . 1 .57)  .AND .( SZAI JCHI C)  .GT .1  .57)  ) GO  To  23 
C...  PEPR-PR  1MARY  PE  PROD  PROG;  P E2  S =2-S  T R E AM  PROG  TO  GET  ELEC 
C...  HEATING  RATE;  NOtE  THAT  FYON  IS  USED  TO  PREVENT  PHIUN  FROM 
C...  GOING  TO  ZERO;;  PRIMARY  SPECT  STORE  TEMPORARILY  ON  DC  B 6 
REWIND  8 

CALL  PE  PR(Z,  ON, N2N,  C.2N, SZA, TN.Z  PR, JMAX.O, PROD, JEM) 

REWIND  8 

CALL  P t 2 S ( Z , ON ,N2N  ,0?N ,BM,BG,JMAX ,DH,N,TI  ,fcHT  ,PSEC ) 

PRUDI  1 , 1 =1-3  ) = 4S,2D,2P  ION  STATES  OF  0+  ; 0<,DL=LG5S  OF  C ♦ ( 2 D > 
C****  T0  0 ♦ ( 4 S ) ANC  UN2Pc  = L0SS  OF  0+120)  TO  N2  + . THE  RATIO  IS  USED  TO 
C=>  = **  CAlC  FRaCTIPN  OF  D ♦ ( 2 D ) ENDING  UP  AS  0+(9S>  : SEE  TORR+TORR  REV 
C*®**  GEOPHYS  AUG  1978  P330 


DU  20  1=1  , JMAX 

IFIJTJ .EO.l  ) FYONI!)  = .031 *PR0D(1  , 1 > 

P4DL=2.0E-1 1*0N( I )*7.8E -8*SURT I 300 /T I ( 3, 1 ) )*N( 1 , I J+A.OE-ll 

> * N?  N ( 1 ) 

0 N 2 P L = 1 .0E-10*N2Nl I) 

OMETAS=PROD(?.I )+PPQD(3,I) 

PHIUNI  I ) = PR0D(  1 , I ) +OME  TAS*04DL/(04DL*UN2PL  )+FYONm+PSEC(I) 
2D  CONTINUE 

23  CONTINUE 

C GENERATE  SYMMETRIC  AMBIENTS  IF  DESIRED  

I F ( I SW .LT  .3)  GO  TO  25 
DO  29  1=1,1 E0M1 
JU= JMAX+1-1 
ONI JU) =0N<  I ) 

N2N( JU ) =N2N (!) 

02N( JU ) =D2N< 1 > 

HN ( JU ) =HN ( 1 ) 

T N ( JU)=TN( I ) 

PHIONI  JJ)  =PrlIGN(  I J 
EHT ( JU) =EHT ( I ) 

DO  13  J = 1 ,3 
N ( J , JU  ) = N ( J , I ) 

13  T 1 ( J,JU)  = TI  <J,I  ) 

24  CONTINUE 

25  CONTINUE 

IF ( I lPS .NE .0  ) CALL  LU0P5IS,NE0,N,T1  ,ITAU,J6,SEC,DNDT) 

C....  PRINTING  OF  AMBIENT  PARAMATERS 

I F I ( JPR INT . EO.O ) .OR. ( 1 TF  .NE .3 ) ) GO  TO  119 
00  106  J=1 ,JPR1NT,1 
L ...  TEMPORARY  CALC  OF  MINOR  IONS 

CALL  CM 1N0R (J,N ,T 1 ,ENOP ,EN02P) 

IF((J/30)°30.EQ.J)  WRITE(6,112) 

IFIJ.EO.l)  WRITE (6,112) 

IF ( ( J/JSPC ) - JSPC .NE  .J)  GO  TO  106 

112  FORMAT (/2X,*J*,6X,*AlT*,5X,*GL*,5X,*BM*,5X,*SZA*,5X,*GR*, AX 

> ,*TN*,5X,<'N(0)®,6X,*N(H)'>,6X,*N(N2)*,6X,*N(02)*,6X,sPROD* 

> ,6X,»HEAT*f6X.*BG*,AX,*GLAT*) 

WRITFI6.111 1 J»Z(J),GL(J),6M(J),5ZA(J),GR(],JI,TN(J),ON(J) 


/ 


<t  0 


>0 > ,HN( J ) ,N2N < J ) ,D2N(J ) .PH10NI J)  ,EHT ( J ) ,EN0P, ENU2P 

31  106  CONTINUE 

22  119  C0NT1NJE 

23  L...  IF  PREVIOUS  TINE  STEP  IS  SUCCESSFUL  ADVANCE  TINE 

2-, IF  ( I TF  .EQ.9 ) GQ  TO  23 

25  lF(ITF.EU.l)  SEC  = SEC*THF*DT 

?b I T AU- I T AU  + DT 

? 7 IF ( (11+I2.NE .3) .AND.l ITAU-DT.GT .TMAX*60) ) STOP 

2 6  IF  ( I 1M2.NE  .3)  GO  TO  221 

29  22  1 CONTINUE 

30  102  FORMAT  ( 1 rl  , 1 1 0 , 1 P 1 1 E 1 1 . 2 ) 

31  103  FORMAT ( 1H  , I 1 0 , 1 1 F 1 0 . 2 1 

32  111  FORMAT ( 14, F8 .0  »3F7.2  » 2 F 7 . C » 1P9E10 .1 ) 

33  56  FORMAT ( 8( IpE 10 .3)  ) 

34  330  F0RMATI3I10) 

35  END 

3 o C <RSFD> 

37 SUBROUTINE  F I E L D l J , J M A X ,P  C 0 , R E , Z 0 , S C A L , X , F D ) 

3 3 C 

39  C THIS  PROGRAM  DETERMINES  THE  GRID  POINT  SPACING  GIVEN  JUST  JMAX  = 

AO  C POP  GRID  POINTS*  PCO=LSHELL,  ZO=LOWER  BOUNDARY,  SCAL=$CAL1NG 

41  C FACTOR*,;  X = COLATITUUE,  THE  FIELD  PARAMETERS  ARE  TRANSFERRED 

42  — c through  fdid;;  ro  = equatori al  radius  to  flux  tube,  initial  values 

43  C FDR  X AND  R are  SET.  DH=D15TANC£  BETWEEN  POINTS  IN  THE  X COORDINATE 

44  — - C 

45  IMPLICIT  REAL(N) 

4b DIMENSION  F D ( 9 ) 

47 I F < J .NE  .1  ) GO  TO  95c 

46  RO=RE*PCO 


49  R = RO 

50  X=  .5 

51  PTS=I JMAX* 1 ) /2 

52  I P T S = P T S 

53  C * * * * SCALK  IS  A SCALING  FACTOR  TO  ENSURE  THAT  THE  X-COORD. 

54  — c ' ' ' ' RANGES  from  0 To  1 

55  RAT=(RE+ZO)/RE 

5b  OMAX=( SORT ( 1 -RAT /PCD) ) / I RaT»*2) 

57 SCALK-1/5INH(SCAL*(0MAX)  ) 

56  0H=1/(PT5-1J 

59  RAT  = (RE/R0)«=*2 

60  C ESTABLISH  PTS.  ON  FIELD  LINE 

61  C....  R-RADIUS  TO  FIELD  PT  ; FD1=ALT  ; FD2=S1N(DIP  ANG)  i FD4=GE0M  LAT 

62  C....  FD5=GRAVITY  ; F D 6 IS  PROP  TO  MAG  FIELD  STRENGTH  ; FD7  = VARIABLE 

63  C....  COORD  FACTOR  J DS=STEP  SIZE(KM)  ; F Db  =ARC  LENGTH  FROM  EOUAT  (KM 

6 *♦ C 

65  9 5D  DX=l-( J — 1 )/ (PTS-I ) 

66  I F ( J .E  0. I P TS ) GO  TO  4 

67  C...  0 = T HE  DIPOLE  COORD  DETERMINED  FROM  — SINH(KO)=DX 

to  SC  X = DX/SC  ALK 

.69 0 = ALOG(  SCX  + SORT(  SCX**2+  1 ) J/SCAL 

70  3 S H X - 5 I N ( X ) 

71  CHX=COS(X) 

72  C...  THE  NEXT  6 LINES  ARE  A NEWTON  SOLVER  FOR  THE  EQUATION  F { X ) = 0 

73  C...  THIS  DETERMINES  THE  COLATITUDE  X 

74  FEX=  ( R0**2  )*■  ( SHX**4  ) -<  RE  **2  ) *CHX/Q 
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l. 

t 


i 


73 

76 

77 
7d 

79 

80 
ei 
82 
P 3 
5 4 

0 3 
% c 
87 
fid 

89 

90 
•71 
72 
93 
7 

9 3 
96 
7 7 

98 

99 
0 0 

01 
02 
03 
09 

05 

06 

07 

08 

09 

10 
11 
12 
1 3 
19 
15 
1 b 

1 7 
1 8 
19 

2 0 
21 
22 
23 
29 
25 
2 6 

27 

28 
29 


UEX-(RO*°?)04*(  SHX**3)*CHX-*-(RE*02  ) * S H X / 0 

X=X-FEX/DEX 

IF (AbSlFEX/(0EX*X)).GT.l.Pc-6)  GO  TO  3 

GO  TO  5 

4 X = 1 .370796327 

S HX  = 1 

C H X = 0 

c LflT  . RADIUS.  DIP 

5 R=R0*SHX**2 

FD(l)-R-RE 

S0TH  = SLRT(3*ltHX**2)-U  ) I 

F 0 ( 2) r2*CHX/S0TH 

F013)=SHX/50TH 

FD(4)r1.570796327-X 

FDI5)=FDI2)*3.98E«-10/((RE  + FDtl))**2) 

F0(6)=8.271E425cSUTH/(R»l.E  + 5)'‘I>3 

FO  { 7)=SCAL*CCSH(  SC  AL  *Q  ) ^SCALK^l  .E-5  ^RE*’*2*S0TH/R*!>3 

l>  S = 1 .0E-5*DH/F0(  71 

XX  - e,LOG(  1 . 73  2*CH  X + SOTH  ) 

---  FDm=K0*.23&68MXX*SlNH(XX)oC0SH(XX)) 

RETURN 

END 

C 

SUbRUUT 1NE  ft Mb S ( J . 1 D A Y , SE C , Z L J , Gl .DEC , E T R AN , F 1 07 , F 1 0 7 A , AP , 

> BLON.D, T , SZA .NY ,NDY, S AT , I O.GLATO) 

c 

C THIS  PROGRAM  EVALUATES  THE  SOLAR  ZENITH  ANGLE,  DETERMINES  THE 

C THE  DAY  AND  TIME  AND  CALLS  A . E . HEDIN5  MSIS  MOD  E l ( C-  T S 3S  ) TO  GET 

C THE  NEUTRAL  DENSITIES  AND  TEMPERATURE 


DATA  PLAT  , PLON  , PI  , I C NT 

> / 1.375  , 1.222  , 3.19159,  0 / 

C CORRECT  TIME  FOR  FULL  DAYS  AND  YEARS 

999  I F { J.NE.l > GO  TO  1000 

0ECL=DEC*3.14159/1£0 

NY  = IOAy/lOOO 

NDY=MOO(  1 0 A Y ,1000) 

IF(MCjq(NY,4) .EQ.0)lY=366 

I F ( MJDINY, 4)  .NE .0  )lY  = 365 

SX=AMPD(SEC, 66400.) 

NOY  = NDY  + INT I SEC/86400) 

— ny=ny+ndy/ly 

10=1000*nY+MOD(NDY,LY) 

1000  CLNTlNUc 

c TRANSFORM  MAGNETIC  TO  &FUGRAPH1C  COORDINATES 

c AND  CALCULATE  SZ  ANGLE  AT  EACH  FIELD  LINE  POINT 

3LUR-BL0N*PI /160.0 

X M = C 05 ( GL) *C  OS ( BLOR-PLON) 

YM=C0S(GL)°S1N(BL0R-PLQN) 

Z M 1 S I N I G L ) 

X&  = XM*SI NI PL  AT ) + ZM*COS ( PLAT ) 

Y & = Y M 

ZG  = -XM*COS I PLAT ) ♦ ZM *S I N ( ? L AT  ) 

&LAT=AS1N(Z&) 

GL  ATD  = GLAT*1  80  .-/P  I 
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30  GLUN=(PL0N*ATAN2( YO.XG)  )*1«0/PI 

31  SAT=(SX-ETRAN+A3200.0)/3600-GLJN/15 .0 

32  Hrt=  ( SAT-12  .)  *1  5*P  1/180  . 

33  SZA=ACOSICOS{GLATI*CClS(UBCL)*COS<HH) 

3 A > + SINI  GLAT  ) *S  I N l DECl  ) ) 

35 C...  CALL  GTS3S  FOR  NEUTRAL  PARAMS 

3o CALL  G T S 3 S ( 10, SX , Z Z J , G L A T D , GLON  , S A T , F 1 0 7 A , F 1 0 7 , AP , A 8 , D , T ) 

37 RETURN 

3 o END 

ION  CATAScT  IS  ABOUT  TO  BE  WRITTEN 

ven.  r f dqne 

I ON  DATaSET  HAS  NOW  BEEN  WRITTEN 
_+. EDITOR  TERMINATING  8C/100  SECONDS  IS  ELAPSED  TIM 
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: PL  lR,DNrR$25,PL 

C < R S 2 S > 

SUBROUTINE  PE2S<Z,7UX,ZN2,ZU2,BM,BG,IMAX,0H,N,Tl,EHEAT,PSEC  ) 

--  C + + + + THE  URIGINAL  PROGRAM  WAS  wRITTtN  t Y A.  NAGY  AND  P.  BANKS.  THIS 

— C +♦  + ♦ VERSION  WAS  IMPROVED  BY  P.  RICHARDS  TP  COVER  ENTIRE  HELD  LINE 
--  C + + ♦ + AND  TO  TAKE  INTO  ACCOUNT  PITCH  ANGLE  TRAPPING  IN  AN  AD  HOC  WmY 
--  C + + + + PROGRAM  FOR  SOLVING  THE  2-STREAM  EOUATIONS  FOR  P HO T 0 t L E C T R ON 

--  c + + + + fluxes  as  given  in  sanks  and  kockarts  i°73  ;the  calculations  begin 

--  C ♦ ♦ + ♦ AT  100  EV  AND  WORK  DOWN  IN  1 EV  STEPS  - SECONDARY  AND  DEGRADED 
--  C++**  PRIMARIES  BEING  INCLUDED  AT  LOWER  ENERGIES 

--  c VARIOUS  PRINTS  CAN  BE  OBTAINED  BY  USING  I S Iw  = 2 -PRINT  A OF  PTS  WITH 

--  C EXCESSIVE  HEAT  LOSS  ::  1SW  = 3 PkJNT  CUEFFS  OF  FLUX  DE'S  ::  1S«=A 

— c print  fluxes  at  each  energy  ::  i s w = 5 print  tltal  fluxes,  heating  rates 

REAL  N2SIGA.N2SI  cS,N'2PE  ,N2P1  .N2I0NS  tN 

DIMENSION  N2SIGA ( 100) ,D2SIGa( 100) ,0XSIGA( 1U0) ,TpROD( 300) , 

7 TSIGNE (300), OIDSIGI 100), OlSSJGIl 00 ),REDEXC(3C0), REDE R 1300), 

8 SEC10N(300)  ,N2PE(100) ,02PE( 100) , OX  PEI  100)  ,EHEAT ( 3 0 0 ) ,E( 100)  , 

B SUMUP ( 300  ) .SUMDWn ( 3D0 ) , SN2I ON (300  ) ,PSEC ( 300  ) ,PH1 S ( 2 , 300  ) 

DIMENSION  XNU(3,10)»0MEG(3,10)  , P ( 3 , 1 0 ) , W(3,10),AD(3,10), 

1 G A M ( 3 * 1 0 ) ,SIGEL(3 , 100)  ,NN( 3) 

DIMENSION  Z(  300) * Z □ X ( 300) » Z N 2 ( 3 0 0 ) , Z G 2 ( 2 0 0 ) , B M ( 3 0 0 ) ,bG(300) , 

1 N( A, 300) ,TI ( 3,300) 

CQMMON/TR1/PROD(300), PROD WN (300, 100) ,PR0DUP(300,100) , 

1 PHI  OWN! 300)  ,PH1 JP ( 300)  ,T 1 ( 300)  ,T2(  300) ,DS ( 30C ) 

CUM MON/PANGS/ ZpAS,P ASK,  1 PAS,  IP  AS C.FPAS 

— C....  1SW=PR1NT  SWITCH,  JEP=ENERGY  PRINT  SWITCH,  1PRIN1=PRINT  SWITCH 
--  C....  JM1N=L0WEST  ENERGY  PE,  Ml=flRST  PT  ON  FIELD  LINE,  AVMU=<C0S0> 

--  C....  VT  OT -VOL  UME  FLUX  TUBE,  FAC=CGNJ  1LLUM  FACTOR,  EPAS  = P1TCH  ANGLE 
--  C....  SCATT  FACTOR,  JMAX=H1GHEST  ENERGY  PE,  K I T E R = A OF  ALLOWED  ITeRS 
--  C....  M=SOUNO ARY  OF  PDE  SOLUTION,  ZPRIN=PRINT  BDY,  ZPAS=ALT  OF  PAS 

DATA  ISW  , J E P , 1 P R I N 1 . IJEP  , JMJN  , Ml  ,AVMU  , VT0T,FAC2 
1 / 2 , 10  , 10  , 1 , 1 , 1 , .577  ,0  ,1/ 

DATA  FAC  , FPAS  , JSN  , J M A X , M ,ZPR1N  ,ZPAS,EFLUX,JTI 
1 / 1 .8  , 3 , 100  , HI,  1.E9  ,1000  , 0,0/ 

RE  A 0 ( 8 ,3  30 ) l^MAX , JKAX 
I PMAC  = I max  + 1 - I PMAX 
IF(Z(M)  .GT  .ZPAS)  Z P A S = Z < M ) 
lEu=( I MAX+1) /2 
IMAX1=1MAX-1 
I PMAX 1 = I PMA  X+  1 
I EOi °=I EO-I PMAX 
I PMAX2= IPMAX-2 
M 2 = M 1 ♦ 1 
I T E ST  = 0 
VT0T=0.0 
I M X M = 1 M A X ♦ 1 — M 
J T I = J T I + 1 
REWIND  7 
1 U SC  = 7 

1FIJT1  .EO.l  ) I D S C = 5 
I F< JTI  .NE .1  ) GO  TO  11 5 

--  C..  I M A X = M A X ALT.  INCSJ  1PMAX  = MAX  ALT.  1NCS  FOR  PROD. 

__  PARAMETERS  FOR  PROD  OF  SECONDARIES!  BANKS  ET  AL  JGR  197A  P1A59 

__  SIGEL  = ELASTIC  SCATT  X-SECT  AT  ENERGY  J 

READI5.330)  N N ( 1 ) , N N ( 2 ) , NN ( 3 ) 
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I NG 


55 

5b 

57 

5b 

59 

60 
61 
62 
63 
6 4 
65 
6 6 
67 
63 

6 3 

70 

71 

72 

73 

74 

75 

76 

77 

7 e 
79 
00 
ei 
82 
63 
34 
65 
S 6 
S 7 
83 
89 
<30 

91 

92 
a 3 

95 

96 

97 

98 

99 
ICO 
.01 

. 02 
i 03 
. Oh 
. 0 5 
. 06 
i 0 7 
. 03 
.09 


00  101  1=1.3 

NNI -NN ( 1 ) 

00  101  J = 1 , NN  I 

101  HEAD ( 5,305  ) XN J { 1 , J ) , DM E G ( 1 . J ) , P ( I , J ) , W ( 1 , J ) 

1 , A 0 ( 1 » J ) , G AM  ( 1 , J) 

00  102  1=1,3 

102  READ! 5,304)  ( S 1 GEL ( I . J ) . J = 1 . 1 2 ) 

C,,,,  AD ( 1 , 1 ) IS  A G-STOL  PARAM  ; N2PI  IS  INEL.  B-S  FRACTION 
C.,,,  FACTP  -FACTOR  FOR  EXTRAPOLATING  PRUO  RATES 
ACM  1 , 1 ) =1  .SE  5 

DATA  N2PI  . 02  P I , UXP1  , FACTP  , 00 

1 / 0.5.  0.5, 0.5  , .7  ,6 . 5 1 F - 1 4 / 

c>>>>  EXTRAPOLATION  of  X-SECTIQN  PARAMS  (TURR-REDDE  ???) 

00  2 JE=13,JMAX 
DO  2 1=1.3 
E J = JE 
EJ  = E J-Q.5 

EFACT  = ( 1 . 0 — ( SORT  (EJ1-3. 460/20.) 

2 SIGEL ( I , JE ) = SI GF L ( 1 ,12  ) PEFACT 

CEttL  ELASTIC  B-S  PROBABILITIES  — N2PE  ETC.  LLLIL 
DO  3 MK  = 1 ,12 
N2PE ( MK ) =0 .5 
0 2 P E { MK ) =0 .5 

3 0XPE(MK)=0.5 

DO  4 MK=13, JMAX 
EK  = MK 
EK-EK-0 . 5 
EFAC=50R  T (12  ./EK  ) 

N2PE ( MK ) =0 .5=E  F AC 
02PE (*K) =0.5*EFAC 

4 GXPE(WK) -0.5=EFAC 

C++* ♦♦  HIGHEST  ENERGY  SET  FOR  J f 0(15),  0(10)  X-S  EVALUATED 
115  J=100 

00  7 JC  = 1 , 10 

01  S S 1 G ( JC  ) =0 .0 
7 D12)S1G(JC)=0.0 

DO  15  M M = 3 , J 
E J = MM 
E J=E J-0.5 

1 F ( MM ,LT  .5  ) GO  TO  15 

01SSlG(MM)=((6.51E-14)*(4.2E-3)/(A.17*4.17))<-(l.-(4.17/EJ)==>0.5) 

1 MA.17/EJ) 

15  U1DSIG(MM)  = ( (6.51E-1A)  = ( 1 .0E-2)/( I .96*1  ,9fc) ) * ( 1 .-1  .96/EJ)=*2 
1 M.96/EJ 

C SN2 I ON  = TOT.  SEC.  IONS  FROM  N2  5 E HE  A T = E L E C T R ON  HEATING  RATE  ; TPRGD  = 

C P H I N E T = TOTAL  PE  FLUX  J SUMUP-ToTAL  UP  FLUX  5 SE C I ON  = T UT A L SECONDARY 

C IONIZATION  ? REDEXC=EXCITATIUN  OF  6300  LINE 

C....  ARC  Lc  NO  T H 05(11  AND  TOTAL  FL’JX  TUBE  VTJL  (VTOT)  ARE  OBTAINED 

C I°AS=GrID  POINT  FOR  TRANSITION  TU  PITCH  ANGLE  TRAPPING 

DO  16  1 -Ml  , I MAX 

I F ( I .C.T.I)  D S ( I )=.5*(DH/3C<  I ) ♦JH/BG  ( I -1  ) ) 

1F(Z(I).GT.7PAS)  VTQT-VTUT  + DS( 1 )/ ( fcj  M ( I )®2.03BE+8) 
lf(<Zm.LT.ZPAS).AND.U.LT.IFQ>)  1 M A S = I 
TS 1 GNE ( I ) =0 
PH  I OwN ( 1 ) =0 
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!i  i a — pm iup ( i ) =o 

l 1 1 S N 2 1 ON  ( I ) - 0 . 0 

l 12 £ HE  A T ( 1 ) = 0.0 

113 T D R 00 ( 1 ) ^0 .0 

1 1 4 — sumup ( n =o- 

1 lb SUM0WN(  i ) = o . 

i i b — sec i on m =o.c 

1 1 7 RE  JE  XC ( 1 ) =3 . 0 

1 1 6 PSEC(  1 ) =0.0 

1 19 16  CONTINUE 

120 t fcB&ft  SET  ENERGY  STEPS  PRUDJP=C+  , PRUDWN  =0-  AND  P RC  D = d 5 6 C K 25b 

121  1PASC-C0NJUGATE  GRID  POINT  FUR  PITCH  ANGLE  TRAPPING.  PASK=A 

122 CORf?  CONSTANT  ASSOCIATED  * I T h PAS  CALCULATION 

123  IPASC=2*lE2-IPAS 

124  PASI,  = FPAS/(VT0T*2.038E*,8*BH(  JPAS)  ) 

125  — - E(1  ) =0.5 

126  00  92  JK  = ? . JM AX 

1 27  92  E ( JK  1 =t ( JK-1  ) ♦ 1 . 

126  00  22  1=M1,IMaX 

1 29  00  21  J J = 1 , JMA  X 

130 PRUDUP ( I , JJ ) =1  .0E-20 

131 21  PRDDwN( I , JJ)  =1  .0E-2C 

132  — 22  continue 

‘ 1 33 CWWWWWUW 

134  ---  C////////////MA1N  CALCULATIONS  dEGIN  HERE  III  III II III / 

135  23  DO  6 I =M1 , IMAX 

1 36 6 P»U0(  I) -1 .OE -20 

137 1FUSW.E0.3)  WR1  TE  (6,330  ) J 

1 3 8 I F «J .GT . JHAX ) GO  TO  96 

139 C2*)ii  PROD  IS  READ  FROK  A FILE  CREATED  BY  PEP  ROD  THEN 

140 Ciilv  EXTRAPOLATED  TO  HIGHER  ALTS.  IF  NFCESSARY 

141  6 READ18.336)  (PROD(I),  1=1,1PMAX2) 

142  DO  117  I = 1 , I p« AX 

143 117  PROD ( I PMA C-l*  I ) =PROD ( I PMAX  + I ) 

1 4^ DO  119  1 = I PM  AX  1 , 1 Ed 

145  119  PRUD< I ) =PROD( I -1 ) *FACT? 

14o 00  19  I = 1 , I E 0 1 p 

147 19  PRUD( I P M A C — I )-PROD(  I PM  AC  +1 - I J^FACTP 

140  DC  9 6 1= Ml. IMAX 

149  P»DD( I ) =PRCD l I ) / AVMU 

do 96  IF(I.GT.IEQ)  PR0D(1)=PRG0(I)*FAC 

l!l C....  T N 2 5 A = SJM  OF  M 2 S IGA( TOT  JNEL.  X-SECT  B £ K 253)  1 0 LINES  DOWN 

id  C....  THcSE  APE  EVALUATED  IN  UCSIGMA  AND  STORED  ON  UCSRESUlTS 

i i L....  NCAP  VtRSiON  READS  FROM  5 AT  FIRST  THEN  READS  AND  WRITES  7 

h --  9 o READl IOSC.330)  JPRINT 

R f A 0 ( I0SC.335)  TN2SA.T02SA.T0XSA 

KE AD ( I JSC .336)  (N2SIGA(K),  KM. JPRINT) 

KF AO ( I DSC , 336)  ( 0 2 S 1 G A ( K ) , K = l, JPRINT) 

kF  AD( 1DEC.336)  (CXSIGA(K),  K = l, JPRINT) 

iM  JTI  .Nc  .1  ) GO  TO  198 

• » ) Tt I 7 , 330  ) JPRINT 

«»  I TE ( 7, 335)  TN2SA.T02SA.T0XSA 

• - l T ■ (7,336)  ( N2  S I GA( K ) , K = l,  JPRINT) 

-MT.  (7,336  ) ( 02  S I G A ( K ) , KM.JPRIN'T) 

«■  ' (7  . 336)  (UXSIGA(K),  K=l,  JPRINT) 
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8 6 
? 9 

90 

91 

92 
9 3 
°4 

95 

96 

97 
96 
99 

:oo 

:ci 

•02 

i 05 
! 0 o 
! 0 7 
! C 8 

; g 

no 

;ii 
1 2 

; l 3 
? 1 9 

> 15 

> 1 6 
?1  7 
? 1 6 
>19 


196  JDRIN1=JPR1NT+1 

DO  1861  K=JPR1N1  , J 
N2  S I G A ( K ) =0.0 
U2SIGA (K ) =0.0 
ie61  OKS  IGA ( K ) =0 .0 

CLLU.  electron-electron  continuous  energy  loss 

Oil!  SWARTZ  ET  AL  JGR  197]  P64.25 THE  POLL.  SWITCH 

C ALLOWS  A START  FROM  LOWFR  EMAX  WITH  SAME  INPUT  FILE  7 

IFU.GT.JMAX)  GC  TO  62 
DEO  .0 

DO  11  I =M2  , 1 MAX  1 

ET  = e .61 3E-5*T 1 ( ? , I ) 

ZNE  =N( 1 , I ) +N ( 2 , I ) +N( 3 . 1 ) 

TSIGnEI  I ) = ( (3.37E-12*ZNEs‘°0.97)/(E(  J ) «■  a 0 . 9 9 ) )*((E(J)-ET)/ 

1 ( E ( J ) -( 0 . 53*E  T ) ) ) *$2  .36 
TS IGNE ( I I = T S 1 GNc  ( I ) /AVMU 

D E L Z = D S ( 1 ) 

1F11.GT.1EC)  DELZ  = DS(  1 + 1) 

TEST=TSI GNE ( 1 ) -OELZ 

I FI Z ( I ) .GT  .1  000)  Dt-DE  + TEST 
IF  (TEST  .LT.  1.0)  GO  TO  11 
IF ( J .EU.2 ) 1 TEST  = ITEST  + 1 

C IFI J.GT.l)  WRITE 16r311)  I ,Z ( 1 ) , TEST 

T S IGNE { I ) =1  . 0/DE  L Z 
11  CONTINUE 
C W R 1 T E ( 6 » 26 ) 

C WRITE (6.27)  TN2SA,TD2SA,T0XSA,SIGEL(1,J),SIGEL(2,J),SIGEL(3,J) 

C 1 , 0 1 0 S I G ( J) .DISSIGI J) 

C....  T1.T2  ARE  COEEFS  OF  D.E.  8 CK  P253  

1 F I ISW.E3.3)  WRITE (6»339) 

339  F0RMAT(5X,=>I*,7X,*ALT*,fiX,*Tl*,8X,=>T2'>,7X,*TSIGNEt'i7X,*PR0D«‘> 

00  30  1=M1,IMAX 

T1  ( I 1 = Z N 2 ( I )*SIGEL(1,J)*N2PE(J)+Z02(1  )*5IGEL(2,J)*Q2PE(J)*ZOX(  1) 

2 -S1GEL ( 3 , J ) -OXPE l J ) 

T 1 ( I ) =T 1 ( I l/AVMU 

T2(  I )=ZN2(  I ) * ( S)GEL(1.J)-N2PE(J)  + TN2SA)+Z02(  1 )<“(SIGEL(2tJ)c 
2 U2PE ( J > + T02S A) *ZDX (I) M SIGELt  3, J) *OXPE  < J )*TUXSA) 

T2(  I ) = (T2(  I )/AVMU  + TSIGNE(  I ) ) 

1F( ISW.E3.3)WRJTE( 6,311 ) I , Z II  ) , T 1 C 1 ) , T 2 (1)  , T S 1 GNE ( I ) , PROD ( I ) 

> *N(l*l>»N(2tl  )*T1(3»I)»BM(I),BG<  1 ) » D S ( I ) 

30  CONTINUE 

C....  SET  BOUNDARY  CONDITIONS  ON  FLUXES  .... 

I F ( J .EC. 1 ) GO  TO  56 

PH  I OWN ( Ml J = .5 -PROD (Ml ) /( T2(M1 ) -T 1 ( Ml  II /AVMU 

PH  I OWN ( 1 MAX ) = .5-PR0D(  I MAX ) /( T2II MAX) -T 1 ( I MAX  ) )/ AVMU 

prt  I UP  ( M 1 ) = PrlI  DWNIMl  ) 

PHIUP(IMAX)=PHIDWN(IMAX) 

C,,,,  00  LOOP  FOR  ITERATING  SOLNS  TO  CONVERGENCE 
5b  DO  161  K1T=1,5U 

DC  58  IJ=M2« IMAX1 
PH  1 S ( 1 , I J ) =PHI DWN( 1 J ) 

58  pHI5C2,IJ)=PHI JP(IJ) 

CALL  T R I S ( 1 ,M2,M.J,M,BM,BG.Z,IMAX,CH) 

CALL  TRI S(-l • IMXM, IMAX1 ,J.M,SM,SG,Z , IMAX.DH) 

C ♦ ♦ ♦ ♦ TESTING  FOR  CONVERGENCE  TO  A SOLUTION  +♦♦♦ 
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220  - 
221  - 
2 22  - 
223  - 
2 29  - 
2 2 3 - 
226  - 
2 2 7 - 
2 2 6 - 
2 2V  - 
2 30  - 
2 3 1 - 
2 3 2 - 
2 33  - 
2 ?<♦  - 
235  - 
2 36  - 
2 37  - 
2 36  - 
2 ? 9 ~ 
260  - 
2 61  - 
2 62  - 
2 63  - 
269  - 
2 65  - 

2 6b  - 

267  - 
2 66  -■ 
2 6 9 - 
25u  - 
251  - 
2 52  - 
253  - 
25*  - 
2 55  - 
25b  - 
2 5 7 - 
25  3 - 
2 59  - 
250  - 
261  - 
262  - 
2 63  - 
266  - 
2 65  - 
266  - 
267  - 
2 6 6 - 
2 69  - 
2 70  - 

271  - 

272  - 
2 73  - 
279  - 


161 

63 

C 

163 


- C . . . . 


- 166 


- 165 


■-  162 


1 


life 

C 

C ? ??  ? 
(.??■>? 


i o i v = o 

on  61  I = M 2 , 1 MAXI 

lF(AbS((FHlUP(I)  -PHIS  (2.1))/PHIUP(I>>.GT.l.E-9)  ID  I V = 1 DI V + 1 
IF ( AbS( (PHI OWN (I)-PHl S( 1 , 1))/PHIDWN( I ) ) .GT  .1  .E-6)  I 0 I V-  I D I V+  1 
I F I 1 0 I V.fcQ.O ) GO  TO  163 
CONTINUE 
CONTINUE 

SUM  FLUXES  AND  PRINT  RESJLTS  ;;  FYUP  S FYDWN  ARE  USED  UNIY  TO  PRINT 
DO  116  1 = M1, IMAX 
SUMUP(1)=SUMUP(I)+PHIUP(II->AVMU 
SJM0WNII)=5UKDWn(1)+PHJDWN(I)*AVMU 
FY JP  =PH1UP ( I ) - AVMU 
FY0WN  = PH1D*>N  ( 1 ) c AVMU 
I F ( 15W.NE  .6)  GO  TO  lja 
PRINT  SPECIFICATI ONS  .... 

I PR1  N1 =2 

1 F ( Z ( I | . G T .Z PR  IN)  IPRIN1=6 

I F ( I JEP-1 ) 165,166,118 

1 F C jcP.LT.15 ) IPRIN1  = 1D 

IF ( 1 A3S( 1 -IES)  .LT  .3)  l P R 1 N 1 = 1 

I F ( J.L  T.60 ) J E P = 1 

IFIJ.GE.60)  J E P = 1 0 

1 F ( J .GE . JM AX ) GO  TO  162 

IF ( J.LE . J M I N + 1 ) GO  TO  162 

1FU  J/ JFP  > *JEP  .NE  .J)  GO  TO  lie 

I F ( I . E a . 1 ) WRITE(6,316)  J 

IF(I.Ea.l)  WRITF (6,310) 

IF(  ( I I+l)/IpRIiYl)^JPRIN).NE.J+l)  GO  TO  118 

IF ( I SW.FQ.6)  WRITE(6»311)  I , Z ( I ) , F Y DWN , F YUP , PR OD ( I ) 

,PROUUP( 1 ,J) » PR  DOWN ( I , J ),FHEAT( I ) 

CONTINUE 


99 

C'" 


70 

71 
C f.  L C L 


75 


* — C , , , , 


THE  DEGRADED  p E * S ARE  NOW  ADDED  TO  THEIR  CORRECT  ENERGY  BCX  AT 
EACH  ALTITUDE  STEP 
IF  ( J .LT.  2 ) GO  TO  82 
L - J “ 1 ' 

DO  71  I =M1 , 1 MAX 

DO  LOOP  FOR  DISCRETF  LOSS  OF  1,2, 3, 6 EV  ETC.  SEE  0+,Q-  BCK  P25fa 
DO  70  K = 1 • L 
L L = J-K 

PR00UA  = ZN2(  I )*  ( N2S  IGA(  K ) *N2P  I *PHIDKN(  I ) ♦ ( 1 .-N2PI  ) «>N2  S I OA  ( K } $ PH  1 UP 
1 ( I ) ) *ZD2  ( I ) M C?S  I GAIK  ) *02P  I *PHI  DWN  I I ) ♦(  1 .-D2P1  ) -'02S1&A  (K)  *PH  1UP  ( 1 
2))+ZOX(I)»(OXSIGA(K)i-OXPI*PHlOWN(I)+(l.-UXPI)*OXSIGA(K)<'PHIUP(l)) 
PRl)DDf=ZN?(  I ) * ( N 2 S 1 G A ( R)*N2PIt0HIUP  ( I )+(  1 .-N2PI  )*N2S1GA(K)-PHIDKN 
1 (1  ) ) *Z'J2  I I )*■  ID2S  I GA  (K  ) *n2PI  *PH1UP  ( 1 )♦(  1 .-02PI  ) 0D2S  IGA(  K)  *PHI  OWN!  I 
2>)+ZGX(1)<-(0XS1GA<K)*0xP1*PHIUP(I)+(1.-0XPI)‘>PXS1GA(K)  *PHI  DWNI  I ) ) 
PROOUP(I,lL)=PRODUP(I,LL)*PRfJOUA/AVMU 
PRODWNI  I ,LL  ) - PRODWNI  I »LL)+PPQpoA/AVMU 
CONTINUE 

ELECTRON-ELECTRON  CONTINUOUS  ENERGY  LOSS 
DO  75  I =M1  , I MAX 

pRODUPI  I ,L ) =PRODUp( I ,L ) ♦TS1GNE ( I) =*P  HI  UP  ( 1 ) 

PRODWNI  I ,L  ) = PROOWN(  1 * L ) ♦ T S l G N E ( I ) ‘■PHIDWNI  I ) 

EHPAS=HEAT  ING  DUE  TO  PITCH  ANGLE  TRAPPING  AT  ENERGY  J.  DE  = 
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> 75 
2 76 
111 
116 
1 79 

1 80 
2S1 

2 92 
28  3 
2 94 
2 95 
2 86 
2 97 
2 9b 
>99 
29C 

291 

292 

293 
2 9*. 
2 Q 5 
2 9 6 
>97 
298 

2 99 

300 

301 

302 

303 
309 
305 

3 06 
307 
30b 

309 

310 

311 

312 
3 13 
319 

315 

316 

317 
3 1 8 
3 1 9 
3 20 
321 
3 22 
3 2 3 
3 29 
325 
3 7 o 

327 

328 

329 


C,,,,  NORMAL  LOSS  IN  P RO T ONO SP HE R E TO  THERMAL  ELECTRONS.  E T OT  = 

Ci  ,,,  TOTAL  LOSS  FOR  ALL  ENERGIES  . FFlUX=TOTAL  ENERGv  LOST  BY  BOTH 
C,,f,  PAS  AND  COULOMB  LDSSES 

EHPAS=J*PA5K*(PHI UP <1PAS)*PHIDWN(IPA5C>> 

1FIDE.GT.JJ  E H P AS  =0 
IF(DE.GT.J)  OF  = J 

etot=etot*ehpas 

EFLUX=EFLUX-MDE*<1-FPAS)*J*FPAS)*<PH1U?{1PAS)+PHIDWN(IPA5C)I 
1 *AVMU 

c....  ehav=the  average  heating  rate  in  the  flux  tube,  ehpas  is  aooed 

C,,,,  TO  COULOMB  HEATING  RATE 
DO  76  1= Ml. I MAX 
T P ROD ( 1 ) =TPROO(  I ) *PRDD ( I I 

EHEAT ( I ) = E HE  A T ( I ) + TSlGNEm*(pHIUP{  1)-»PHIDWN(I))*FAC2 
I F( EHE AT ( I ) ,LT  .0)  WR1TE(6,311>  1 , Z ( I ) , PROD (I) , PH  I UP  I I ) 

I F ( 2 ( I ) .GT.ZPAS  ) EHftV  = EHAV  + pAC  2° 

1 TSlGNtm*(pHlUP(I)*PH!OWN(I))*DSm/t2.C38E  + 8*BK(I))/VTOT 
IF(Z(I). GT.ZPAS)  EHEAT(I)=EHEAT(I)*EHPAS 
REOFXC  ( I )=REDEXC  ( I ) + (PHIl)P(  I )*PHIDWN(  1 1 ) * Z OX  ( I ) 

> * (01DSIG ( J)+0 .9  5 2*01 SSIG (J  ) ) 

76  CONTINUE 

PROO.  OF  SECONDARY  ELFCTRUNS  FOR  E >1 7 EV  * * * * 

IF  (J-17)  82,73,73 
73  MAX  = (J-fl7)/2 
TN21 JN=0.0 
T02I0N=C.0 
TDXIGN=0.0 

C ENERGY  COOP  BEGINS  HERE  

00  87  MM=17,MAX 
EM  =MM 
EM=EK-0.5 
EM2=EK*EM 

S J = J 

EM J=EM/S J 
EMN  2 -W ( 1 , 9 ) / EM 
EM02=W(2,8)/EM 
5M0X=W(3,8)/EM 

C ? ? 7 ? I0NEN2  --  ENERGIES  AT  WHICH  SECONDARIES  ARE  CREATED 
C????  FOR  N2IDNS  SEE  GREEN  L STOLARSKI 
I 0NEN2=MM-20 

1 ONE  02  - M M - 1 9 
1 ONE  OX  = M M- 1 6 
OOFAC  = wO/E  M2 

N2 IONS  = QOFAC  * A 0 ( 1 »9)*EMN2**P( 1 *9) *1  l.-EMJ**GAM( 1 ,9)  ) * * 

1XNU ( 1 ,9) *EMJ**OMEG( 1 ,9) 

02ICNS  = 00FAC*A0l 2 .8)*EM02**P( 2 . 8) *(  1 .-EM J**GAM( 2 ,8) ) ** 

1 X N U ( 2 . 8 ) *EMJ**UMEG ( 2,8  ) 

OXlONS=OOFAC*AO(3,8>*EMnx**PI3.B>*(l.-EMJ**&AM(3,B))** 

1XNU(3,8)*EMJ**U.MEG(3,8) 

TN2I0N-TN2ICN+N2 IONS 
T02I0N=T02I0N+U2IONS 
TCXION=TOXIDN*OX IONS 
ctitiistt  ALT.  LOOP  BEGINS  HERE 
00  86  I *M1  , I MAX 
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kc 


Ob/21  / 


I 


$ 30 
i 3 1 
i 3 2 
! 3 3 
i 35 
135 
13b 
137 
i 3 b 
13  9 
350 
3 51 

352 

353 
3 5 5 
3 5 5 

356 

357 
3 5 £> 

359 
350 
3 51 
3 52 
3 c 3 
3 55 
3 55 
35b 
357 
3 5 d 
3 59 

360 

361 

362 
36  3 
365 

365 

366 

367 
3 6b 
3 69 

370 

371 

372 

373 
375 
375 
37fc 
377 
37b 
379 
3 8 0 
3 8 1 
3 B 2 
383 
3 8 5 


SFCN2P=N2IDNS°ZN2(  1 ) ® ( P H 1 UP ( I ) ♦ PH  I 0 WN ( 1 ) ) 

SECD2P  = 021DNS»Z02(1)!»(PHIUP(1>«-PH10WN(I)) 

SEC0XP  = 0XI0NS<=ZPX(1  I*  ( PHI  UP  ( I )*PHI0WN  ( I I I 
PRUDupU  , 1 ONLOX  ) = PRCDUP  ( I . 1 UNFQX)  ♦ . 5*SECDXP/AVMU 
PR  DOWN  I 1 , I UN' t OX)  - P K 0 D W N I 1 . 1 DNF  OX  ) ♦ . 5*  SE  C DX  P / A VMU 
(10NF02  .LF.  0)  GO  TO  1086 
PR  DOWN  ( I , I ON  ED  2)  =PRODWN(  1 . 1 ON F 0 2 1 ♦ . 5*  SE  C G 2 P / A VmU 
PRUPUPM  , I 0NE02 ) -PROD 'JP  I 1 .10NF02M.5RSEC02P/AVHU 
IF  ( 10NEN2  .LE . 0)  GU  TC  1086 

PROOUP ( I , I 0NEN2 ) ^PROOUP ( 1 • I 0NEN2I ♦ . 5*SEC  N2P/AVMU 
PRQDWN(l,10NEN2)  = PROOWN  ( I . 1 ONF  N 2 ) ♦ . 5*  S E C N2  P / A VMU 
1086  SN2ICNU)=SN2lON(I)+SECN2P 
PSEC1I ) = PSE  C (I  )+SECPXP 

86  SEC  I 0 N ( 1 ) = S E C I ON ( 1 1+SECN2P+SECU2P  + SECOXP 

87  CONTINUE 

C?$?i?S  END  ENERGY  AND  ALTITUDE  LOOPS  ?*?$?* 

IF(ISW.NE.2)  WRJ  TE  <6,326)  TN2I0N,  T02I0N,  TC'XION 
82  J = J-1 

IF  I J .LT.  JMIN)  GU  TO  80 
GO  To  23 

C//////////  MAIN  CALCULATIONS  END  HERE  //////////// 

80  CONTINUE 
ZREDEM=0.0 
DO  95  I =M1 , 1 MA  X 
EHE  AT  ( 1 ) = F HE  AT  (I)  <=AVKU 
SUM  SUM  = ( SUMUP  ( 1) +SUMDWNI  111 
SUMNET=(SUMUP(I)-SUM0WN(1)> 

REDFM(I)=REDEXC( 1 ) ✓ ( 1 . 3 2+5 . 35 E -9* Z N 2 ( I)) 

ZREDEM=ZREDEM*REOEM!I J * 1 . OE  6 
1 F ( I SW . E « .2 ) GC  TO  95 
IF(I.EO.Ml)  WR I TE I 6,325) 

r»RlTE(6,311)  1 , Z ( I > .SUM  SUM  , SJMNET  , SUM  UP  ( 1 1 , SUM  OWN  ( I ) , EHE  AT  (I) 

> , p.  EDEXCI  1)  , T P R U D ( 1 I ,PSEC(  I ) 

95  CONTINUE 

IFdSk.NE.2)  WRITE  (fa,  303) 

IF(ISW.NE.2J  WRITE(b,305)  EFlUX,ETOT,ErtAV 
IF ( 1TEST.NE  .0)  WRITE! 6,337)  ITFST 

26  FORMAT! 1H  ,8X,5HTN2SA,8X,5hT02SA,7x , 5H T 0 X 5 A , 8 X , 6HN 2 S 1 G S , 7 X , fa  HO  2S  I G 
IS , 9X .fcHOXSIGS ,6X , 6H01DS I G .6X.6H01 SS 1G ,6X ,6HD3SSIG) 

27  FORMAT ( iH  ,9612.3) 

30  3 FCiRMATl/3X,*EFLUXof5x,*ET0T*,5X,*!EHAV*/) 

305  FORMAT ! 6 E 1 0 . 3 ) 

305  FORMAT  (6F10.6) 

310  FORMAT ( 1H  , 5 X 1 H 1 , 9X , 1 H Z , S X , 6H P H I D WN , faX , 5HP H I UP , 7 X 
1 ,»PRGD*,7X,spRanUP*,7X,->PRU0KNP  ,7X, REHEAT*) 

311  FORMAT  ( Irl  .I5.F12.1.12E12.3) 

315  FORMAT  ( ///HI  , 1 5X  ,#  THI  S IS  THE  P Hu  TOF  L E C TR  ON  FLUX  FOR  ENERGY 
1 J=*,IJ,2HEV) 

320  FORMAT ( 1H  , 7 X . 1 H L , 1 3X , faHP R U DUP , 1 1 X , faHPR OD W N , 1 2 X , 5HPR UD ) 

325  FORMAT  ( 1H  , 3X  , * I * , 9 X , * AL  T * , faX  , *5  UM  SUM  * , faX  , * SUMN  E T * , faX  , 

1 *SUKUP*.bX»*SUMDWN**bX»*£HEAT*,feX,*P.  EDEXC*»fcX»*TPROD*l 

3 2 fa  FORMAT! 1 H .3E15.3) 

330  FORMAT! 1 21 10) 

335  FORMAT! 3! 1PE 15 .5)  ) 

336  FORMAT ( 8 ( 1PE10.3)  ) 


80 


337 


I 


L 


i N'G 


J35 
)2b 
J 9 7 
i 98 
589 
J 9 & 
i°l 
i =2 
4^9  3 
i°8 
J ? 3 
53  6 

5 **  7 
) 9 6 
5 99 
♦ 00 
*01 

* C 2 
.03 
*09 
,05 
*0  6 
*07 

♦ 08 

* n9 
,10 
*1  1 
*1  2 
t ! 3 
, 1 9 
*1  5 
,16 
,1  7 
*1  b 
*1  9 
,20 
*21 
,22 
.23 
*28 
,25 

* 2 o 
*27 

* 2 d 

* 2 9 
,30 
,31 
*32 
, 3 

* 3 8 
, 1 3 

* 3 o 
*37 

* 3 b 
,39 


F0RMAT(*NP  OF  P T S WITH  CIS  FNERGY  LOSS  >1  EV  =*,18) 
RE  TURN 


U7fir  i "« 


END 

C <PS  TR  1D> 

SUBROUTINE  TR1S(ID1R,M2.M,J,MT,BM,BG,Z,INAX,DH) 

DIMENSION  P 'J  0(3),  A(  300)  . 0(300),  C(  300)  ,01800  ) 

COMMON/ TR  1 /PROD  < 300)  , PR  DOWN  ( 300,  100)  ,PRODUP(  300, 100)  , 

1 PH10WNI  300)  ,PriluP(300)  *T  1 ( 300)  *T2(300),OS(300) 

DIMENSION  7 ( 300  ) ,BM( 300  ) , bG ( 300 ) 

COMMON /PANGS/ /PAS ,PASK  • 1 PAS  * IPA5  C * FPAS 
DATA  ISW  , F A C 2 , JSN  , JSw  , K 1 T E P-  , Ml  ,ZPRIN  .ZZZZ 
1 / 1 , 0 , 3 , 1 , 75  , 1 , 300  ,1000  / 

lFQ=(IMAX+l)/2 
I M X M = I M A X + 1 - w T 
1 M X M 1 = 1 M X M - 1 
IMXM2=IMXM-2 

C LUL  00  LOOP  FOR  ITERATING  THE  SOLUTIONS...  PHIDV-n  IS  SOLVED 
CClCL  using  trioag  solvfr  for  one  hemisphere,  PH  1 UP  IS  SOLVED 

CEECL  ANALYTICALLY  TO  UPPER  5 D Y IN  CONJUGATE  H-S,  PHIUP  FOR 

CEllL  C*H.S  IS  FOUND  USING  TRIOAG,  THEN  PHIDWN  IS  SOLVED  ANALYTICALLY 

celeb  ba c x along  the  fifed  line 

c....  coeffs  for  TRIOIAG  solvfr  IMPIT  ,,, 

DO  80  I = M 2 , M 
DFU7=2*DS<  I ) 

1 F ( IDIR.EQ  .-1)  DcLZ=2*DS(  I ♦ 1 ) 

DLB=JSR*(BM(  I ♦ 1 ) - B M ( I - 1 ) ) / ( E M ( 1 ) = OELZ) 

DPG=15K*(5G{ I+i  )-BG( 1-1  ) ) / ( 2 * D H ) 

OSLP =- jSK*8*( DM  I I +1 ) -2*BM ( 1 > + BM ( I -1 1 ) / (DELZ**2*BM(  I I ) 

1 -DLEs’DoG  + oL  B*  DL  B 

DO  5 I K = 1 ,3 
I J=2-IK 

IF(lDlR.EO.l)  PUD (IK  I = P R ODW  N ( I - 1 J ,J  ) 

5 IF(IOIR.EO.-l)  PUO( I K ) =PROOUP 1 I -I  J, J) 

Pl'OCuN  = PROOUP  I I , J‘ 

I F ( 1DIR.EQ.-1)  PUDCON=PRODWN( 1 , J) 

UPR1=IDIR*(PR0D( 1+1) -PROD ( J-1))/(2*DELZ> 

DPR2=I DIR* (PUD ( 3 )-PUD ( 1 ) ) /DElZ 
PHI =8./DELZ**2 

ALPHA=-(  T1  ( I +1  )-Tl  ( 1-1  ) I/DELZ/TK  I ) 

8ETA=IDIR*(-T?(I)*ALPHA-(T2(I*1)-T2(1-1))/DFlZ)-T2(I)**2+ 

1 T 1 ( I ) * = 2 

0(1  ) = ( PROD  I I )/2) *( - T 1 ( I ) - T 2 ( I )-AL PH  A* 10  I R ) -DPR1 
1 +PUD(2)*(-ALPHA*ID1R-T2(I))-0PR2 

1 -PJDCON*Tim 

BETA=BETA+DSLE-AlPHA*0l5+DlB-DEB 
ALPHA=( ALPHA-2 *DLP  + DBG) /DEL Z 
D( I )=D( I )+DLB*(°ROD( 1 ) / 2*  PUD ( 2 ) )*IDIR 
C ( I ) =PH I ♦ ALPHA 
E ( 1)  - - 2 . * P H I + b E T A 
A ( I ) = P H I -ALPHA 

1MJSN.EQ.1)  WRITF(fc,311)  I , Z (I  I , AL PH A , B E T A , DP R 1 , OPR  2 
1 , A ( I ) , B ( I ) ,C ( 1 ) ,D ( 1 ) 

90  CONTINUE 

t....  END  OF  D.E.  COEFFS  SOLUTION  FOR  NEAR  H-S  .... 

I F ( ID1R.EQ.~1)  DO  TO  10 
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C 6 / 2 7 / 


44Q 0(M2) =D(M2 )-A( M2) *PHlDrfN( M2-1 > 

441 u ( H)  =0  CM  ) -C  ( M)  »Prll  OWN  ( M ♦ 1 ) 

'*<•2 CALL  TR.IDAG(PHIDWN,M2,M,A,&,C,D) 

44 3 C::::::::  PHIUP  IS  EVALUATED  ANALYTICALLY  :::: 

444  00  fcO  I=M2,IKXM1 

445  T2( 1 » 5* ( EM ( I ♦ 1 )-BM( 1 -1 ) ) /(  RM ( 1 ) *DS < I ) I *J5W 

44  o P 1 = ( T 1 ( I ) ePHl  DKNC  I ) ♦ ( PR3DC  I ) *2  .‘Pk  DDUP  ( 1 , J)  ) /2  . ) / T2M 

^47 PHILIP  (I)  =R1*(PH1'JP  ( 1-1  )-Rl  )*EXP( -T  2M*0S(U  ) 

440 IF{ I .F3.IPAS  + 1 ) PHIUP ( 1 J = PHIJP(  1 ) »( 1-FPA S I 

4 '-9 60  CONTINUE 

4 r 0 HE  TURN 

4 61 C CONJUGATE  SOLUTIONS  f--3*** 

462 10  U(M2)  =0(  M2  I-A(  M2J  *PH1UP(M2-I  ) 

4 3 J(M)-D(M)-C(M)*PHlUP(M+l) 

4r4 CALC  TS 1DAGIPHI UP,M2, M.A.B.C  ,0) 

9:5  C::::::::  PHICWN  IS  EVALUATED  ANALYTICALLY  :::: 

4^6 00  160  I - M 1 , IMXM2 

4-7 K = I M A X - I 

4 5 t> T2P  = T2  (K  )♦  .5*  ( bM  (K*l  )-bM  (K-l  ) )/ (dM(K  ) *DS  (K  + l ) ) «JSW 

4:9 Hl  = (THK)^PHlUP(K)  + (PR0D(K)  + 2.*PRuDWN(K,J))/2.)/T2P 

4 f.  G PHIDWNU)  =R1*  (PH!DWN(K  + 1 )-Rl  )*EXP( -T2P*0S  (K*l  ) ) 

4 6 l I F ( x .Fa  . I P ASC-  1 I PHIDKN(K)  = PHIOW.\(K)*(  1-FPAS) 

4f2  160  CCNTINUF 

443  311  FORMAT (1H  ,I5,F12.1.12E12.3) 

4 6 4 RETURN 

465  c NO 

466  C 

467  SUBROUTINE  T R I 0 A G ( D E L T A , 1 F , L , A r R , C , 0 ) 

46<j C....  FOR  SOLVING  A SYSTEM  OF  LINEAR  SIMULTANEOUS  tOUATIUNS  WITH  A 

469 C TRIDIAGONAL  COEEF  MATRIX.  THE  EONS  ARE  NUMBERED  FR  CM  IF  TO  L, 

4 70  C L THEIR  SUB-DUG.  , D A C- . , L SJPeR-DIAC  CC'EFFS.  ARE  STORED 

471  C IN  THE  ARRAYS  A , B L C 

472  DIMENSION  A ( ? 00  I , B ( 30 0 ) , C ( ?00 I , D ( 3 00 ) 

473  DIMENSION  A L^H A ( 300 ) , DF LT A ( 300 ) , GA MM A ( 300 ) 

474  C COMPUTE  INTERMEDIATE  ARRAYS  ACPHA  L GAMMA 

4 73 4LP4A(  1 F I - B ( IF) 

476  GAMMA ( IF ) =D(  I F ) /ALPHA C 1 F ) 

4 77 I F P 1 = I F ♦ 1 


4 7 c 
4 7 9 
4 PC 


00  1 UIFP1.L 

ALPHA!  I ) =B( I )-A(  I )*C(  I-1)/AL?HA( I -1) 

G A M M A ( I ) = ( D ( I ) - A (I  )*GAM«A(I-1  ))/  ALPHA!  I I 


461 
4 8 2 
463 


CONTINUE 

COMPUTE  FINAL  SOLUTION  VECTOR  V 
UElTAC  l ) r G A M M A ( L I 


4 3 4 

LAST=L-IF 

4 P 5 

JO  2 K = 1 * 

4 8o 

I = L -K 

437 

u c L T A ( I ) = 

4*5 2 

CONT 1 NJF 

4 8 9 

RETURN 

490 

END 

l 1 LN  DATASET 

IS  A D U U T TO 

‘All) 
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)I  T,D=PLlB,DN=RSTEM,OL 


1 

2 

3 

9 

5 

o 

7 

a 

9 
I 0 
1 1 
12 
1 3 
19 
1 5 

1 fa 
17 
IS 

19 

20 

2 1 
22 
23 
29 
25 


C (RSTEM) 

SUBROUTINE  TFIJ(J,ILJ,1PR,N,TI,F,J&,JBS.V) 

THIS  SUER  SETS  UP  ERROR  FNS . OF  THE  T1ME-DEP  ION  AND 
C ELECTRON  TEMPS,  FOR  SUBSECUFNT  SOLUTION  BY  ThF  NEWTON 

Os**  ITERATIVE  PROCEDURE.  THE  SOLUTION  IS  OBTAINED  IN  DRThDG 
MAGNETIC  F1FL0  CODRDS  FOR  A COMPLETE  DIPOLE  FIELD  LINE. 

C...  1FLUX=JUN  HEAT  FLUX  FyR  ENERGY  CONSERVATION  TEST 

C...  KE  «KI =ELECTRON, I ON  THERMAL  CONDUCTIVITY;  TErFLECTRON  TEMP 

C...  UE  = ELEC  TRON  DRIFT  VE L OC 1 T Y . L , 0 = LOS S / GA 1 N OF  THE  IONS 

C...  L»Q,=LQSS/GAIN  0^  IONS;  P P P = I MP L I C I T -E XP L I C I T 

C...  ELECTRON  AND  ION  DENSITIES;  V=VEL0C1TY  IN  DENSITY 

C...  SOLUTIONS  BUT  IS  USED  TO  GET  STEADY  STATE  ELECTRON  TEMP  HERE 

C...  HFLX=HEAT  FLUX  IN  EV 

IMPLICIT  REAL  ( a-h.k-l  ,N-2 ) 

REAL  Z.DT .DH.THF .EPS, I FLUX  ,TF 
DIMENSION  K E ( 3 ) ,KI  (3)  *TE(3)*UE(3) 

DIMENSION  N(9,300),TI(3,300),F(2),L(2),Q(2),PPP(3,3),V(2) 
COMMON/ VN/U ( 2. 300 ) ,6&( 300 > . BM ( 300) , GR ( 2 , 300) ,R (2 , 300) , SL( 300 ) 
COMMON/ NO /ON ( 3 00 ) , HN ( 3 00 ) , N 2N ( 300  ) , 02n ( 300 ) , PH  1 ON ( 300 ) , TN ( 300 ) 
COMMDN/ALT/2 ( 300 ) , JMAX , JMAX1 , DT ,DH, THF, 1 TER .EPS,  I ON, TF , 1 TF 
COMMON /SAV/NSAVE  (2,300  I , T I S A V ( 3 ,300 ) »FY(  2 ,300)  »UN( 300)  »EhT ( 300) 
C0MMGN/FnN/J0N.JLL(5>,JUL(5) 

COMMON/C  PR  I N/HFL X (2,300) 

DATA  BK  , BCLTZ  , J R 1 T , NHF , S T S ,DL3  ,DL 2 
1 / 8.63E-5,! . 3307E-16,  0 , 0.,  1 .,-. 02798  , 3./ 


26 


DH2=2*DH 


27 

28 

29 

30 

31 

32 

33 
39 


I PR  =3 

C....  SLDSS  FINDS  IMPL-EXPL  MIX  OF  FLECTRON  AND  ION  DENSITIES 
C...  S T S =0  FOR  STEADY  STATE  SOLUTION?  ICNT  IS  A COUNTER 
C...  3 MK  IS  USED  TO  NORMALIZED  THE  HEAT  FLUXES  TO  1000KM  ALTITUDE 
CALL  SlOSSC J,I LJ.N.TI  ,PPP.L,0) 

1F((J.E0.2).AND.(ILJ.E0.0))  WRITE (6,58) 

I F ( ITF.EQ.3)  S T S =0 
IFNTF.NE.3)  STS  = 1 


35 

36 

37 
36 
39 

90 

91 
'-2 
93 
9.9 
95 
9 6 
97 
9 0 
99 
FG 
El 
r>2 
5 j 
c 9 


I C NT  = I CNT  + 1 
JMAX02=JMAX/2 
1 F ( ICNT.NE .1 ) GO  TO  100 
00  90  I K = 1 , J M A X 02 
1 F ( Z ( IK)  .LT.1000)  I F = I K 
90  I F ( Z ( IK) .LT.1000)  BMK=BM(1K) 

100  CONTINUE 

C....  CONVERT  EH T TO  C.G.S  UNITS  (ERGS)  KEI  IS  LOSS  RATE  FROM  ELECS 
C....  TO  IONS,  GRADT  t DIVV  ARE  CONVECTION  TERMS  FROM  DENSITY  PROGS 
ERGS=EHT(  J)<=1 . 6 E - 1 2 
NE=PPP(1,2)+PPP(2,2)+N(3,J) 

NFV  = PPP( 1 ,2)+PPP(2,2  ) 

Nl=PPP(l,2)/16+PPP(?,2)+N(3,J)/30 

KEI=1.232E-17*NE*NI*(T1(3,JJ-TI(2,J))/(TI(3,JI**I»5I 
HEAT  LOSS  DUE  TO  LOSS  OF  PARTICLES 

HLa  = 1.5»bOLTZ»TI(3,J)*(Q(l)*0(2}-L(l)*PPP(l,2)-L(2)'>PPP<2,2)) 
BGS0  = B&(  J ) <=*2 

6G0PG  = BG(  J )*■(  BG(  J*1 ) - eG(  J-l  J)  /DH2 
bG&DB  = B&(J)*(BM(J*l)-f»N(J-l»)/(DH?*HM(jn 
T c 2 =T  I ( 3,  J) 
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55 

56 

57 
56 

5 9 
60 
61 
62 

6 3 
6 5 
65 
6 6 
67 

6 o 

69 

70 

71 

72 

73 
7o 
73 

7 o 
77 
76 
79 
BO 
81 
62 
83 
BO 

85 

86 
87 
6 6 
«9 
QO 

91 

92 

93 
90 
95 
76 

97 

98 
° 9 
00 
01 

. 02 
C 3 
. oo 
C 5 
C 6 
.07 
0 3 
.09 


tnj  = tn<  J) 

fUTfc  = SORT ( It  2 ) 

C IF  1 L J = 3 . LOCAL  fNEKGY  BALANCE  FOR  TF  REQUIRED,  JUMP  10  T£  SECTION 

IF  ( ILJ.EQ.3)  00  TO  13 

C ELECTRON  ANO  IqN  THERMAL  C ON DUC T I V I T Y ( K E , K I ) AND  DEFINE  TE  ... 

C...  REESEROBLE  5.P.R  (1975)  »219;  kE.K1.UE  ArE  EVALUTED  AT  3 POINTS 
C...  TO  ALLOW  GRADIENTS  TO  BE  CALC.  KN  GIVES  THE  REDUCTION  OF  KE 
C...  DUE  TO  NEUTRAL  COLLISIONS,  SEE  A|_SO  REESErCBLE 
7 DO  12  I =1  ,3 


JT= J-2 ♦ I 

NET=PPP( 1 , 1 ) *PPP ( 2, 1 ) 

TE(I)=TI(3.JT> 

UE(I)=(FY(1,JT)+FY(2,JT))/NET 
SQTE=SQRT(TE(  I ) ) 

K N 2 = ( ? . 8 2 E - 1 7*S0TE-3  . A 1 E - 2 1 *SQTE*TE  ( I ) ) “*  N 2 N ( JT  ) 
K02=(2.2E-16*7.92F-lB«SCTE)eD2N(jT) 

K0=?.AE-16*0N( JT  ) 

KHE-5 . 6E  - 1 6 ® N H E 

KH=(5.97E-15-7.05E-19*TE(I)I-HN(JT) 

KN  = ?.22E*AsTE(I)**2* ( K N 2 ♦KU 2 + K0  *K HE *K H ) / ( NE T *N ( 3 , J T >) 

Kl(I)  = 1.8AE“6*(PPP(l»I)+9*PPP(2,I  ))3TI  (2,JT)°*2.5/NET 
KE(I)=I.232E-6*TE(I)*»?.5/(1+KN) 

IF ( IRIT.EC.1 ) WRITE (6,55)  K N2  , K 02  , K 0 , KH  E , K H , K N ,K  1 ( I ) , K E ( I ) 

12  CONTINUE 

SQTE=SQRT ( T I ( 3 . J > ) 

C 

C....TI  ERROR  FNCTS  I.E.  ION  T-DEP  TEMP  E ON 

DTE=(TI (2 ,J+1 )-TI(2,J-l) )/0H2 
DDTE=(TI(2.J-»1)-2*TI(2,J)*TI(2.J-1))/(DH**2) 

I F ( 1 L J . E 0 .0  ) HFLX(1,J)=-BMK*=KI(2>»BG(J)*DTE/(1.6E-12*BM(J)) 

TENCR=STS*1.5*BOLTZ*NE*(TI(2,J)-TISAV(2,J))/DT 
DBG=-BGDBG*K  I ( 2 ) <■  D T E 
D SOT  = -BGSO*K 1(2) *UDTE 
DKE=-(K1(3)-KI  (1)  )*BGSa*DTE /DH2 
C DKE=-2.5*RGSQ*KI(2)*DTE«=*2/TI(1,J) 

DBM  = BG  < J)  *KI  ( 2 > *BC-6DB*DTE 

C,,,,  LOSS  RATE  CDEFF  TO  NEUTRALS  (KIN)  REES  L R0BLEI1975)  P22C  .... 
C,,,,  RCE  = RESONANT  CHARGE  EXCHANGE.  POL  = POLARIZATION  INTERACTION 
RCE=0.21*PPP  ( 1 , 2 >*3N  ( J ) M .<**PPP  < 2 ,2)  *HN  ( J ) 

POL  1 =PPP  ( 1 , 2)*(6. 6*N2N(J)*2.  6 *NHE  +5  . 3*02  N ( J ) +5 . 6 *CN ( J ) ) 

1 ♦PPP(2,2)*(5.5*NHE-»1.9*HN(  J)  ) 

POL2=(0.36<-PPP(l,2)«'HN(J)+O.9«'PPP(2,2)«ON(J))t,SORT(TNJ) 
K1N=(RCEoSQRT(TNJ  + T1(2,J))>PDL1  + P0L2J<!1.6E-26 
HL0SI=+KIN*(T1 (2.JJ-TNJ) 

&RADT*1 .5*NEV*B0LTZ*BG(  J)«>DTE<=UE  ( 2) 

01  VV  = NEV*BOLTZ*T  I (2,  J )=>(  ( UE  ( 3)  -UE  ( 1 ) ) * E G ( J I / DH2-BG  BD  B ) 
E(l)=TENCR+D6G+DSCT*DKE*DBM-KEI*HL0Sl*GRADT+DIVV 

C 

C....  END  T I ERR  F NS  WRITE  VARIABLES  IF  DESIRED 

1 F ( I L J . NE .0)  GO  TO  5 
I F ( I TER .NE . 3)  GO  TO  5 
IF (J.LT . JL L ( 1) .OR.J.GT . JUL ( 1 ) ) GO  TO  5 
WRITE ( 6,56)  J.Z(J) 

I F ( J . E a . 2 ) KRI TE (6,50) 

IF« ( J/9)*9.E0. J)  WRj  TF (6,50) 
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0  WR1TE(6.55)  F ( 1 1 ,TENCR  .DBG.DSOT ,DKE .OBM.KE l ,HLOS 1 ,GR AOT 

1 5 CONTINUE 

c C ,,,,,,  , 

3 C,,,,,,,,.  ELECTRON  TEMP  ERR  F NS  ,,,,,,, 

A DTE  = ( T I ( 3 , J*1  J-T  I l 3 , J-l  ) 1/DH2 

5 C...,  FL  U X = HE  A T FLUX  IN  EV  NORMALIZED  TO  LOWEST  LEVEL  ,,,, 

t> IFIILJ.EO.O)  HFLXI  2 , J ) =-BMK*KE  I 2 )*BG  ( J ) *DTE/ ( 1 .faE-1  2*BM  ( J ) ) 

0DTE=(TI(3.J*l)-2+Tl<3,J»*TI(3,J-l)l/<DH**2) 

c ELEC-NEUT  ELAS  CULL  LOSS  RATES  S L N ( 197a)  REV  GEOPHYS  P366 

13  TDJF=TF2-TNJ 


LEN2  = 1 .77E-1  9*NE  *N2N  (J)*(1-1.2E-A*TE2)*TE2*TDIF 
LFQ2=1.21E-13*NE°C2N(J)<:(l*3.fcE-2*S0TF)<,SGTEoTDIF 
LF0=7.9E-19»NE*0N(J)*<l+5.7E-AOTE2)*SCTE*TDIF 
LEH*9.63E-16*NE*HN(j)*(l-1.35E-9*TE2)t‘SQTE*TDIF 
CAM  ROTATIONAL  LOSS  RATES  BEK  26B  nttttt) 
LRN2=2.0E-19*NE*N2N(J)*TDIF/SQTE 
lRU2=7.0E-1A*NE*02N(J)*TDIF/SQTE 
C ♦ ♦ ♦ N 2 V 1 9 LOSS  RATES  BCK  P268  AND  SLN  P369  ♦ ♦ + 

EF=1 .96E*4*7 .5  1E+3*TANH(  1 .1E-3MT  E 2 - 1 8 0 0 1 ) 

GE  = 3300*1 .23  3*  ( TE  2-1  0001-2. 05  6E-<**(  TE  2 -1  000  ) ■»  < TE 2-9000) 
LVfi2  = -2.99E-12*NE*N2N<  J)*FXP(EF*(TE2-200Q)/ 


1 ( 2000*=TE2  J ) * ( E XP  (-GE  *TDI  F/  ( TE2*T  NJ  ))  -1  ) 

Cijss  02  vi?  loss  rate  sln  P36A  tt$$ 

HS=3300-639*SIN(1  .91 t -9* ( TE  2-2700  ) I 

LV02=-5.19feE-13*NE*02N<J)*EXP(HS* (TE 2-700 )/ ( 700* TE 2 > ) 
1 *<EXP(-2770*TD1F/(TF2*TNJ) ) -1 ) 

C 

c : ; ; ; : fine  structure  excitations  sln  p365  ;;;;;; 
c ; ; ; ; : note  that  oi.D2,ei  etc.  may  need  to  be  Changed 


c : ; : ; note  that  a term  is  added  to  ne  at  low  alts  for  C2*  , no* 

D1 =EXP ( -22  8/TN J 1 
D2  = EXP ( -326/TN J ) 

El=EXP(-228/TE2) 

E2=EXP(-32fc/TE2) 

E3*EXP (-98/TE2 ) *D1 

» 5 LF1  = 8.  99E-6*TE 2**0. 519*10. 02*(D1-E1  1-5.91E-9* 

,6 1 TD1F*(2.019*D1*(22B/TE2*2.019) *E  1 1 ) 

LF2=7.7E-6*TE2**0.399P*(0.028*(D2-E2)-5.9lE-9* 

1 TDIF*(1. 8998*02+ <32 6/ TE2+1. 8998) *E 2)1 

LF3=2.22E-7*TE2**0.769*(0.008*(D2-E3)-5.91E-9* 

1 TDIF*(?.?68*D2*(98/TE2+2.268)*E31) 

ZF0=5+3*D1 +D2 

LF0  = -8.629E-b* ( NE+O.E  8*EXP< -.05*Z ( J) 1 ) *0N( J )*( LF1  + LF2  + LF3 1 /ZFD 
C****  FINE  STRUCTURE  OF  0 (D  STATE)  SLN  P365  ****** 

DE=2.8E*8+0.3*<TE2-1500)-1.997E-5*(TE2-1500)*<TE2-9000) 

LF1D  = -1 .57E-12*NE*DN( J >*EXP( DE*< TE  2-30001 /(  3000*TE2 1 ) 

1 *<EXP(-22713*TD1F/(TE2*TNJ>)-1) 

I F ( 1LJ.EG.3)  GO  TO  1 9 

C,.,,  END  CF  ELECTRON-NEUTRAL  LOSS  RATES  ,,,, 

T£NCR=STS*1  .5*B0LTZ*NE*(TI  (3.J1-T1  S A V ( 3 , J 1 l/DT 
DEG  = -BGDBG*KE ( 2 1 *DT  F 
DS:T  = -KGSO*KE ( 2 1 *DDT  E 
DK  E 1 - ( K E (31-KE  ( 1 1 )*BGSQ*DTE/DH2 
DPM-&G(J)*KE (2 )*BOBDB*DTE 
1 e,  KEN-LEN2*LE02*LE0*LEH*LRN?+Lr02 
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1 NO 


165  - 
1 6t>  - 
167  - 
1 6d  - 
lb9  - 

170  - 

171  - 
1 72  - 
1 73  - 
1 74  - 
1 75  - 
1 76  - 
177  - 
1 7 6 - 
175  - 
180  - 
181  - 
1 o2  - 
183  - 
1 8 h - 
185  - 
1 8 1>  - 
187- 
1 Pc  - 
185  - 
1 «0  - 
151  - 
15c  - 
193  - 

1 9 - 
195  - 
19b  - 
197  - 
19a  - 
199  - 

2 00  - 
201  - 
202  - 
2 03  - 
2^4  - 
2 05  - 
2 06  - 
2 07  - 
208  - 
2 09  - 
2 10  - 
211  - 
212  - 
213  - 
214- 
215  - 
2 16  - 
217  - 
2 18- 
2 19  - 


HLU5S=UEN*LVN2*IV02*LFU*LF1D)*1.6E-12 

- C V(l)  IS  FORMED  FDR  BOY  CDTN  UNO  PREDICTOR  

V( 1 I = FRCS-HLOSS-Kt  I 
1FIUJ.E0.3)  RETURN 

GRADT  = 1.5»NEV‘'B0LTZ‘>BG(J)*0TE<!UE(2) 

DlVV=NEV*B0LTZMI(3,J)M(UE(3)-UE(l))*eG(J)/DH2-BGBDB) 
r(2)  = TENCR+DBG-*-DSQT  + 0KE*D8M«KEl+HLDs$+GPADT  + 01VV-ERGS 

- C 

- C END  TE  ERR  F NS  WRITE  VARIABLES  .... 

lF(lLJ.NE.O)  GD  TO  1 5 
IF ( 1TER.NE .3)  GO  TD  15 
IF ( J.LT . JLL  (1) .OR. J.GT . JUL( 1 » )G0  TO  15 
WRITE ( fc,56)  J. Z I J ) 

WRlTc(6.S5)  F l 2 ) .TENCF  .DBG. DSQT ,DKE ,DBM  ,KE I .HLQSS ,D1 VV , ERGS 

I F ( Z l J ) .GT  .1000 > GO  TC  15 

1F((J/5)*5.FC.J)WP1TE(6,57) 

WRITE<6,55)  LE N?  ,LE02 . L F 0 , L E H , L RN 2 
1 ,LR02.LVn2.LVD2,LFD.LF1D 

- 15  CONTINJE 

- C...  THIS  SECTION  TFSTS  CONSERVATION  OF  E^ER&Y  AbOVE  1C00KM 

- C...  THE  HEAT  FLUX  AT  1000KM  IS  DETERMINED  FROM  INTEGRATING  THE 

- C...  PRODUCTION  AND  LOSS  AND  ALSO  DIRECTLY  FROM  TEMP  GRADIENT 

I F l I L J .NE .0 ) R F TURN 
lF(STS.NE.O)  RETURN 
IF(J.EQ.IO)  PH1T  1=0 
IF(J.EU.lO)  PH  1 T =0 
1FIJ.LT.1F)  RETURN 

PH1TI=PHIT1  + OHMKEI-HLOSI>/I3M(J)*BG(J>) 
PHII=PHITltRM(J)/1.6E-12 
1FlUX=HFlX(1,IF)*ABS(HFIX(1  , JMAX+  1-IF I I 
PHI T = PHI T + DH* ( ERGS-KE I -HLOSS ) /( BM ( J )«BG ( J ) ) 

PHI =PHIT*BM( J ) / 1 .6E-1 2 

EFlUX  = HF  LX (2 . I F ) •*•  AB  S ( HFLXI 2 , JM A X + 1-lF ) ) 

1FI J.E3.JMAX+1-IF)  W R 1 T E ( 6 , 5 5 I PH  I , FF LUX  , PH  I 1 , I FLUX 
RETURN 

- 50  F0RMATI9X,RF  = ,8X,*TENCR»,8X,*DBG*  ,8X,*DSQT» 

1 ,9X , RDKF » , 8X , oDBM* . 8X ,*KE I » ,8X , PHLOSS* ) 

- 55  FORMAT ( IP] 9E 12.21 

- 56  FORMAT ( I 5 ,F9 .0  ) 

- 57  F0kMAT<8X,~LtN2*,8X,<1LE02«>,8X,nED*,8X,*LEH*!,8X.*LRN2*,8X 

1 , *LR02*  , 8 X,  *L  VN2»  . 8 X ,»L  V02*  . 8X  , *LFO*  , 8X  , *LF  1 D <• ) 

- 58  FORMAT  (CENTER  T F 1 J =>  > 

END 

- CsSL0SS,:'<!SL0S5sPSL0SSP,»5L0S5*,:rSL05St:35L0S5*<'5L05S,>P5LD55':' 

SUBROUTINE  SLU5S  (J,JLI  ,N»TI  , PPP  , l , 3 ) 

- C....  SUBROUTINE  SLOSS  CALCULATES  ION  PROD.  L LOSS.... 

- C...  THE  PROGRAM  ALSO  DETERMINES  THE  I MPL  1 C I T - E X P L 1 C I T ION  DENSITY 

IMPLICIT  REAL  (A-H.L.N-Z) 

REAL  Z ,OT,OH. THE .EPS 

DIMENSION  NI 4.  300) ,TI ( 3,300) ,F( 2)  ,L<2 ) ,0(2  ) ,PPP(3,3)  ,V(2  I 
C OMMON/ ND/ON ( 300 ) ,HN( 3 00) ,N2N( 300) , 02N(  3 00)  .PHI  ONI  300)  , TNI  300) 
COMMCN/ALT/Z  1300) . JMAX , JMAX1 ,DT ,DH, THE, I TER.EPS, ION.TF  , I TF 
COMMON/ SAV/N SAVE  I 2 , 300 ) , T I 5 AV I 3 , 3 00  ) , Fy ( 2 , 300 ) ,UN( 300) , EHT I 3 00) 

- C===================FOR  CPANC-NJCnLSON=== ================= 

- c;;;;;;:  calculate  densiufs  and  velocities 
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I r.u 


0 I T , O^PL 1 B .ON-RS  T FA ,QL 


1  C <RS  T E R> 

2 — subroutine  T ERD ( J.UB.QJ ,3A ,Ql  . JM.CU  ,LOC ) 

J c RFAL  LINEAR  1 N TE R PUL A T I ON 

4  IMpLIC  IT  REAL!  A-H.O-Z  ) 

5 — commun/delz/hl.hu.it 

6 C OL  AND  CU  ARE  INTERPOLATION  POINTS 

7 C OF  U IN  THE  (ZB.ZJ)  AND  ( Z J , Z A ) I N T ER VA L S RESPECTIVELY 

6 L CM  IS  THE  AVERAGE  VALUF  OF  Q IN  THE  ( Z J - Y L , Z J ♦ Y L ) INTERVAL 

9 3L=.5*(QB+QJ) 

10  QJ=  .5*1  OJOA  > 

11  UM=.25*(  (CL  + CJ>*HL  + (CJ  + CJ)*HU) 

12  RETURN 

13  END 

14  C , !"#»*£**?♦,  !"#i5;L**?  + » ! "«$5iL**?  + , !”«>*£.**?•»  , J ••&$>.  £.**?♦ 

13 SUBROUTINE  TER  I ( J . 3 B , C J * 0 A ,0l  , Q M , OU  fLOC  ) 

\b COMMON/DELZ /hL  .HU  . I T 

17  C exponential  INTERPOLATION 

lb IF ( ( Q6*Q J .GT  .0 ) . AND  .< Q J*3A  .GT  .0 > ) GO  TO  100 

19  WRITE (6, b00> 

20  600  FORMAT  ( * T E R 0 * ) 

21  C 

22  100  OL =SCRT ( 0?f 0 J) 

23  2U=5URT(3J*GA) 

24  UM  = .5*HU*( QJ-QU) / ALDG< QJ/CU) 

25  > +.5*HL*(QL-CJ  )/AL0G(0L/3J) 

?b RETURN 

27 END 

?B L,  *••#»» It t **?♦  , ! ••#**{.**?+,  BS*l**?  + 

29  SUBROUTINE  D A V E ( I UN  , J , AN L , ANM , A N U , PL , PM , PU , N . NS A V E ) 

30  C....  CALCULATES  ANTE  AND  POST  VALUES 

31  C....  OF  HALF  INTERVAL,  AND  AVERAGE 

? 2 C....  OF  (ION  DENSITYI/IMAGNETIC  FIELD) 

33  IMPLICIT  REAL ( A-H.N-Z ) 

34  COMMON/ VN/U( 2,300) ,BG( 300) ,BM( 300 ), GR (2 ,300 ) ,GP( 2,300) ,SL ( 300) 

33 DIMENSION  AN L ( 2 ) , ANM ( 2 ) , ANU ( 2 ) , PL ( 2 ) , PM ( 2 ) , Pb ( 2 ) , N ( 4 , 3 00 ) 

36  > , NSAVE(2»30G) 

37  C 

36 OC  100  1=1,1  ON 

39  C . , . . ANTF  VALUE  S 

40  Be=NSAVE(I ,J-1 )/BM( J-l ) 

41  C = N S A V E ( 1 , J ) / B M ( J ) 

42  A = N S A VE  ( 1 » J ♦ 1 ) /BM ( J + l ) 

43  JF  < U.lT  .0.0  ) .OR  . (C  .LT  .0.0)  ) WRI  TE  (6 ,1  15  ) 

44  115  FORMAT(*NFGATIVF  ANTE*) 

4 5 CALL  TER  I ( J, BB ,C , A ,0L ,QM,CU ,3 ) 

46  A N L ( I ) = 0 L 

47  ANM ( I > = 0 M 

46 ANU I I ) =0 J 

49  C . . . . POST  VALUES 

50  BB  =N(I , J-l  ) /BM ( J-l  ) 

51  C = N ( I , J ) / BM  ( J) 

52  A=N(1,J+1)/BMIJ*1) 

5 3 I F < (A.  LT.  0.0).  OR.IC.LT.  0.0)  >kRITE(6, 116) 

54 lit  FORMAT ( *NE GAT  I VE  POST*) 


1 

■ 


/ 


r 


1 Nv 


73 

7*4 

73 
76 
7 7 
7 fa 

7 V 
30 
P 1 
c2 
33 
6 

3 3 

36 

37 

8 6 
89 
° 0 
71 

96 
9 3 
94 

Co 

97 

9 O 
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0 3 

cO 

r 7 

3 6 
39 
60 
61 
6 2 
63 

6*4 

4 5 

<■  0 

6 7 
63 
69 

7 0 


100 


CALL  TfcP  1 ( J , E9 ,C  , A ,CL ,UM , CU  ,4  ) 

7 L ( I ) = U L 
9 M ( 1 ) = Q M 
PU (I)  -UU 
CONTI NUE 
RE  TURN 
t ND 

C.i"  ».**£*»?♦, L * * ? * , i " B $ % t»»?  + ,r“*l5:L*<*7+t  !••#$*£»*?♦ 

S'JbRUUT  INE  CHEMD  ( I ON , J I , SOUP  C F , N , N S AV  E , T 1 , T HF  ) 
c....  THIS  PROGRAM  DETERMINES  THE  INTERPOLATED  PRODUCTION  AND  LOSS 
L....  PRuCESSEs.  IT  CALLS  RATES  TO  GET  THE  RATE  CLNSTANTS  AND  TERD 
L....  TO  DO  THE  INTERPOLATION 

IMPLICIT  REAL(A-H,L,N-Z) 

R c A L THF 

DIMENSION  N(4,300>.TI<3.300),NSaVE(2,300),Q(2,3),L<2,3) 

> 1 SOUR ( E ( 2 ) ,SINK(2),CML(?).DMU(2),CN(2,3) 


101 


CoMMON/VN/u ( ?,  300  ) , FG( 300)  , BM»  300 ) 
COMMIjN/NQ/UN  l 300  ) » Hn  ( 300  ) . N2N  ( 300  ) 
C0MMCN/AlT/Z(300),JMAX,JMAXl,DT,DH 
COMMUN/FQN/ JON, JLL(E) ,JUL(5) 

T HP  = 1 .O-THF 
DO  101  I = 1 , I ON 
CN<  I , 1 ) = THP«*NSAVE  ( I 
C N ( I ,2) =THP*NSAVE  ( 1 
CNl  I ,3) =THP-N5AVE  ( 1 


JI -1  ) +THF <*N ( I , J I 
J1  ) + T HF  *N  ( I , J I ) 

JI  + 1 ) ♦THF  *N(  I , J 1 + 1 ) 


C,R(2,300),GP(2,300).SL(300) 
02N(300)  *PHI0N(300)  *TN(300) 
fht,iter,eps*nion,tf,itf 


1 ) 


— c 


DO  300  K = 1 , 3 
J-K+JI-2 

CALL  RATES! J.TI  .TN.Rl  , R 2 . R 3 , R 4 ,R  5 , R 6 , R 7 , R 8 ) 

4 C3ai2.)  SOURCES  AND  SINKS  FOR  EACH  ION  ARE  SUMMED  TOGETHER  TO  FORM  0 ( I . J ) 

L ( 1 *K)  - ( R2'HN(  J I ♦ R.  3 s N 2 N ( J)4R4tC2N(  J ) ) ®CN(  1 ,K) 

L ( 2 ,K  ) =P  1 oON  ( J)*CN(2,K  ) 

0(1.K)=(L(2.K)+PHJUN(J)~L(1.K))/BM(J) 

0(2.  K.  T = (R2^HN(J)  - CN(1,K  )-L{2,K)  )/BM  (J) 

_ c PRINTING  OF  INDIVIDUAL  PRODUCTION  AND  LOSS  TERMS  

I F ( JI  .IT . JLL  ( 2 ) .OR . JI  .GT . JUL ( 2) ) &C  TO  300 
I E (K .NE  .2  ) GO  T U 30D 
I F ( I T E 0 . N E . 4 ) GO  TO  300 
I F ( J I . E 3 . 2 ) HRITEI6.il) 


IF  ( ( JI/30  )*30  .! 
R 2HN=R2*HN ( J ) 
P3N2=R2SN2N(J ) 
R4D2=R4*32N ( J ) 
B10N=R1°DN(J) 


0 . J I ) WRITE (6,11) 


9 9 

— 

WR I TE ( 6 , 1 3 ) J I , 

Z ( J I ) ,R2HN,R3N2,R402,R10N.CN(1  ,K)  ,CN(2,K)  ,PHION(J ) 

1 00 

— 

1 1 

FORMA T(/2X,»J*, 

3X,«ALT*>,7X,:>R2HN-,8X,«'R2N2,>,8X,*R4C2<',8X,tRlGN* 

101 

— 

> , 8X , *N  <0+  ) 

«,,dX,*>N(H+)«‘,9X,t*PHI0No) 

1 0 2 

— 

1 3 

FUPmAT (15.F9.0, 

1 PI ?E1 2 .4) 

1 03 

— 

3 DO 

CONTINUE 

1 .'4 

— 

C . . . 

. TERD  IS  CALLED  TO  INTERPOLATE 

1 0 3 

— 

DO  4Q0  11,1  ON 

1 06 

— 

08-2(1.1) 

1 7 

— 

3 J - 0 ( I , 2 ) 

1 OS 

— 

UA  = 0( I ,3) 

1 09 

— 

c 

WRI TEI6.330)  1 , 

JI .OB.QJ.OA.OL.CM.OU 
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AO  73892 
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1 NG 


110  - 
111  - 
112- 
11;  - 
1 14  - 
115- 
11«>  - 
in  - 
no- 
119- 
120  - 
121  - 
122  - 

123  - 

124  - 
123- 
1 26  - 
127  - 
1 2o  - 
129  - 
1 HO  - 
1 HI  - 
1 ?<;  - 
133  - 
1 34  - 

13  3 - 
1 36  - 
137  - 
12a  - 
129  - 
1 40  - 

141  - 

142  - 
1 43  - 

164  - 

165  - 
16t  - 
167  - 

14  6 - 
1 49  - 
1 50  - 
151  - 
122- 
153  - 
1 c4  - 
1 55  - 

156  - 

157  -■ 
153- 

15  9 - 
160  - 
1^1  - 
162  - 
163  - 
1 64  - 


CALI  T E R 0 ( J1  ,0b .UJ.GA.UL ,QM.UU,5) 

- C WRITE (6,350)  1 . JI ,QB.UJ,QA,OL,QM,UU 

- 350  FORMAT ( 214, 12E 12.2) 

SOURCE ( I ) =QM 

- 4G0  CONTINUE 

return 

END 

SUbRUUTlNE  HDDEQI J, JM1  ,JMAX,N,TI ,K,SL) 

- C....  CALCULATES  DYNAMIC  EQUILIBRIUM  (IF  H ♦ ANO  [)♦  AT  PT  JM1  FROM 

- C....  DENSITIES  AT  LOWER  BOUNDARY  JM1,  USING  GEOPOTENTIAL  GP ( J I -CP I JM1 ) 

- C....  ORAG(l)  IS  A TERM  TAKING  COLLISIONS  INTO  ACCOUNT.  IT  MAY  BE 

- C INCLUDED  LATER  IN  PLACE  OF  , DR  lN  ADDITION  TO  OlCN(l) 

IMPLICIT  REAL! A-H.N-Z) 

REAL  3K.MG.M 

DIMENSION  M(2),D(2),c(2),RT(2).DP(2),N<4, 300) . T I 13. 300) ,PP I 3 ) 

> . V I 2 ) ,FLUX< 2)  ,R ( 2,300 ) . SLI 300) 

COMMCN/DEQ/0 I0N( 2 ) .DRAG ( 2 ) f GPI  2 ,300  ) 

DATA  AMU  , BK  , MG  , GPI2.1)  , TF  , AUG 

> / 1.6726E-24  , 1.38C7E-16  . 3.6765E+20  , 0.0,  1 , 1 / 

DATA  M/16.0, 1.0/ ,MT/1/,  T2SAV/0.0/ 

- C...  EVALUATE  GE1JP0TENT1  AL  FOR  DYNAMIC  FUlMLiBRIUM 

- C...  ONLY  IF  ION  TEMP  CHANGES 

JE  0 = ( J M A X ♦ 1 ) / 2 

1FIT2SAV.E0.T1  (2,  JEO)  ) GO  TO  10 
00  5 I = 2 , J M A X 
TH= .5*1 TI ( 2, 1-1 ) *TI  (2, 1)1 

GP( 1 , I ) =MG*<  .5*AKU/BK>  *(RI 1 ,1-1 )-R ( 2, 1-1 )) 

><,(1./R(1,1-1)RR2/TH  + 1./R(2»I-1)‘>*2/T1I2,I-1))+GP(2,I-1) 
GP(?,I)=GP(l,I)+MG-(.5-AMU/BK)!>(R(2,I)-R(l,I-l)) 

>«'(1./RC1,1-1  )<=»2/TH-H./R(2,I  )*><*2/TI  (2.1  ) ) 

- 5 CONTINUE 

- 10  CONTINUE 

T2SAV=TI(2,JE3) 

IF(J.FQ.l)  RETURN 

- C...  CION  IS  ZEROED  AT  PRFSENT,  MAY  3F  USED  LATER 

•J  I ON  (1)  =0 
Q I ON ( 2 ) =0 

- C . . . . 

NfJMl-NI  1 ,JM1 )+N( 2,JM1  ) 

D3=NEJM1*TI (3, JM1I/T1 (3, J> 

00  1 I =1 ,2 

RT(I)=(TIC3,J)+T1(3,JM1))/(TI(2,J)+TI(2,JM1)) 

E I I )=EXP  (-MI  1 )M  GP  (2,  J )-&P<  2,  JM1  ) ) ) *EXP  (Q10NI  1 >MSL  ( J)-SL(  J-l)  )) 
D(  I )=N(  I , J M 1 I^TI  ( 2 , J M 1 )■>£(  I )/TI(2,J) 

DPI  I > = R T ( I ) / I R T I 1 ) •*•  1 . 0 ) - . 5 
1 CONTINUE 

N(l,J)=D(l)*S0RT(D3/(D(l)tDI2)))<I((D3/(D(l)+D(2)))sbDP(l») 

N(2.J)-D(2)*S2RT(D3/(D(l)-*L)(2)))*((D3/(D(l)*D(2)))<'s,DP(2)) 

RETURN 

END 

- C,  !••#$*£.*?,  « ftilX  L*?,  I "KtAL*?,  ! L*  ? 

SUBROUTINE  HOEQI J , JMAX ,DT ,THF ,DCR ,N ,T I , NSAVE ) 

- CC....  FINDS  THE  NFW  CHEMICAL  EQUILIBRIUM  DENSITIES 

- CC....  OF  0+  AND  H+  AT  POINT  J FOR  FRACTION  IMPLICITNESS 


90 


Ofc/27 / 


CC....  IT  ALSO  CALCULATES  TE  FROM  LOCAL  HEAT1 N G = C 0 U L I N G 
IMPLICIT  REAL! A-H.L.N-Z) 

REAL  DT.THF 

COMMON' /NO/ON  ( 300  ) , HN(  300)  » N2N  ( 3 00  ) • 02  N ( 300)  » PH  I ON  1 300)  * TN  ( 30U) 
DIMENSION  L(  2,2  ),N(<*,?00).T  1(  3,300),  N SAVE  (2, 300 ) , V ( 2 ) . F ( 2 ) 

CALL  RATES!  J.Tl  ,TN,R1,R2.R3,RA,R5,R6,R7,R0) 

C....  EVALUATE  LOSS  RATES 

L(l.l)=(R2*HN!J)*R3*M2N(J)*RA*a2N(J)) 

L ( 1 ,2)-*Rl°0N( J ) 

L(2,1)=»R2*HN( JI 
L ( 2 « 2 ) =R 1 *0N ( J ) 

CALCULATE  0+  s H ♦ DENSITIES  FROM  PHOTOCHEMICAL  EQUILIBRIUM 
NU.J)=PHlON(J)/L(l,l)*NSAVE(l,J)*EXe<-L<l,l)*DT) 

N( 2, J) = N< l , J) *L I 2, 1I/L  I 2 ,2  ) 

C....  LOWER  BOUNDARY  FOR  TE  USING  NEwTUN  TO  SOLVE  LOSS=GAIN 

C,,,,  LOCAL  HE  AT  I NG  = LOCAl  COOLING  IS  TRANSFERRED  FROM  TFIJ  VIA  V ( 2 } 

c,,,,  h=incpement  for  evaluating  derivative  of  vni:  dex  = deriv  of  vm 

C,,,,  FEX  = VI1).  ION  T 5 M P iS  SET  EQUAL  TO  NEUTRAL  TEMP.  NOTE  THAT  THE 
H = U.0001c‘T1(3»J) 

20  CALL  TF1JI J.3.IPT,N,TI,F,1,1,V) 

F E X = V ( 1) 

T 1 ( 3 . J ) = T I (3.JI+H 

CALL  TF I J ( J. 3,  1PT.N , T I , F , 1 , 1 , V) 

DE  X = ( V ( 1 ) -FE  X) /H 
T I ( 3 , J ) = T I ( 3 • J ) -H-FE  X/OEX 

IF(A&S(FEX/(DEX*TI(3,  JM)  .GT.1.0E-3)  GO  TO  20 
IF  < ( J.NE .1 ) .DR  . ( J.NE . JMAX ))  RETURN 
T I ( 1 , J ) =TN( J J 
T I ( 2 , J ) *TN ( J ) 

RETURN 

END 

C * P R 1NT&:>PRINT  *<=PR  INT  <■  * P R I N T * * P R I N T * * P R 1 N T & * P R I N T S'^PRINT  * 

SUBROUTINE  P»INT(1PMX,IM0D,Z,JMAX,N,TI,1TAU,ITER,I0SC,U,FY,A) 
C....  THIS  ROUTINE  PRINTS  N AND  U ARRAYS  .... 
implicit  REAL  ( a - h , l , n - Z ) 
real  z .dt.dh.thf  ,eps 

DIMENSION  A ( A , 300) ,N<  A . 300) , T I ( 3 , 3 00 ) , Z ( 300  > , FY C 2 , 300 ) , U < 2 , 300 ) 
C0MMuN/CpRIN/HFLX(2*300) 

IW300=0 

WRITE ( IDSC ,200)  l T E R , I T A J 

2C0  FORMAT  ( 20X  ,*ITER=»,I3,5X,*TIME  = <',I6,3X,*SECS*//) 

WR  I TE ( I DSC . 1 03 ) 

103  FORMATllX,*ALTIT*,<*X,*J*,7X,*NlO+)*t8X,*NIH*)»,8Xt*TI»,8Xt*TE* 

1 ,AX,»D+  VFL*,Ax,*H*  VFl*,  AX  .‘■FY1*  .U,  * F Y 2 * , A X , *H F L X 1 * , AX 

1 • *HF  L X 2* / ) 

DO  100  J = 1 , I P M X 

1F( J.EQ.l ) GO  TO  102 
IFIZI J) . L T .0.0)  GO  TO  102 
1 F ( MOD  ( J , 1 MOD)  .EO.  0)  GO  TO  102 
GP  TO  100 
102  CONTINUE 

I W300  = I W300* 1 

IF( ( 1W3 00/30)* 30. F0.IW300)  WRITE ( ID SC, 103) 

WRITF(IQSC,101>  Z(J),J,N(1,J),N(2.J),TI(2,J),T1(3,J) 
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I NO 


220 
221 
222 
223 
229 
2 25 

22b 

227 
22* 
2 29 
2 3 0 
2 31 
232 
2 33 
2 39 
2 35 

236 

237 
2 ” o 
2 39 
290 
2 91 
2 9i 
293 
299 

295 

296 

297 
296 
299 

250 

251 

252 
2 c 3 
2 59 

255 

256 

257 
2 5b 
259 
2 50 
261 
262 
263 
26*, 
265 


1 , U I 1 , J 1 , U ( 2 . J ) « F Y ( l , J I ,FY(2*J)»HFLX(1 ,J),HFLX(2,J) » A ( 1 , J) , A ( 2 « J ) 
101  F0RMATIF9.0,19,1P2E13.3,0P2F1Q.1,1P12E9.1) 

100  CONTINUE 
Rf  TURN 

END 

C ! * *?>!>.*?>»  %•?>!%*?>!%•?>!%*?>!%*?>!  ?>!**?>  ?>!>.*?>!%*?> 

SUBROUTINE  C M I NOR( J , N , T I , FNOP , E NO ?P ) 

C....  THIS  PROGRAM  CALCULATES  THE  MINOR  ION  CONCENTRATIONS  FROM 
C....  CHEMICAL  FCUJLIBRIUM  ; F NOP  - N ( NO-*  ) , ENU2P  = M02  + ) 

IMPLICIT  RF AL ( A-H.N-Z ) 

CUMMON/ND/CN(  30U)  ,HN( 3OO) , N2N( 300)  , 02N ( 3 00 ) , Ph I ON ( 3 00  ) , T N ( 3 00  ) 
DIMENSION  N (9 ,300  ) ,T I ( 3,300) 

B = N t 1 , J)«-N< 2.J) 

CALL  RATES! J.TI ,TN.R1,R2.R3,R9,R5,R6,R7,R8) 

C*(R3^N2N<J)/R5  + R9*02N(j)/R6):>N(  1,  J) 

NE  = (B+SaRT(B=>*2t-9.0*C))/2.0 
EUCP  = R3*N2N  ( J )<=N(  1 , J)  / <NE*R5  ) 

FND2P=R9*U2N( J ) *N ( 1 , J I / ( NE *R6 ) 

RETURN 

end 

C!  % •?>!%*?>!%*?>!**?>!%*?>!**?>!%*?>!  **?>!%*?>  I %«■?>)**?>!**?> 

SUE  0 OU  T 1 NE  RATES(J,T1,TN,R1,R2,R3,R9,R5,R6,R7,R8) 

THIS  PROGRAM  EVALUATES  THE  PATE  CONSTANTS  FOR  VARIOUS  REACTlGNS 
R1,R2  APPLY  TO  0+  ♦ H REACTION  IN  BOTH  DIRECTIONS  5 R3=REACT  ION 
OF  0-*  WITH  N 2 J R9=  0*  WITH  02  J R5  =RE  AC  T I UN  OF  NO-*  WITH  ElECS 
R6  =RE  A C T I ON  OF  02+  WITH  ELECS  : RATFS  FROM  TORR  AND  TORR  1970 
C’***  R7,R8  ARE  FOR  FUTURF  USE 

DIMENSION  T 1( 3. 300) ,TN( 300) 

C . . . 0*-  ♦ H LOSS  PATES 

R1=3.8E-11p5  0RT<TI(2,J)'*TN!J)/16.0) 

R2=5.29E-llcSORT(TN(J)  + TMl,J)/l6.0> 

C,..  O+IAS)  LOSS  TO  N2  AND  02  ; TORR  i>  TORR  1978 
T13=(9.oTN(J)*-7.PTlU,J))/11.0 
T ] 9 = ( 1 •*TN(J)'*2.*T1  (1,J)  ) ✓ 3 « 

I F ( T13.GT .1700)60  TO  10 

P.3=l  .53  3E- 12-5. 92E-13M  T 13/300.  > 

> *8 .60E-1 9* (T13/300. ) **2 
GO  TU  20 

10  R?=?.73r-12  -1  . 1 5 E - 1 2*  ( T 1 3 / 300  . ) 

> +1 .983E-1 3* I T 13/300 . ) **2 

20  R9=?.82E-11  -7.79E-120! T19/3D0. ) ♦ 1 . 0 73 E - 1 2 * ( T 1 9/ 3 00 . ) ** 2 

> -5. 1 7E  - 1 9 * ( T19/300. ) op  3 + 9.65E  - lfe-! T19/300.)^-9 
R5=9.2E-7*(300./T1(3,J))*».85 

R6  = l .6E-7p(  300./T1  (3,  J)  ) «■«  .55 

RETURN 

ENO 


A T I ON  DATASET  IS  ABOUT  TO  BE  WRITTEN 


given,  rf  gone 

AT  ION  DATASET  HAS  NOW  BEEN  WRITTFN 


EDITOR  TERMINATING 


27/100  5EC0N0S  IS  ELAPSED  T 
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U 1 T . 0 = 
1 -- 

2 - 
3 — 


PL  IB  ,DN=RS0FN  ,UL 

- C <R  S DE  N > 

SUBROUTINE  OFI J( J, JSJ, 1PR.N.TI ,F, JB .JB5,V) 

_ c - -K 

- C THIS  PROGRAM  WAS  WRITTEN  BY  EUGENE  Y0UNGU978).  IT  IS  RESPONSIBLE  FOR 

- C SETTING  UP  THE  'ERROR  FUNCTIONS*  FOP  THE  DENSITY  EQUATIONS.  IT  CALLS 

- C SUBR  VEL  TO  GET  VELOCITIES,  HODEQ  TO  FILL  IN  THE  DYNAMIC  EQUIL  REGION, 

- C C HE  MO  FOR  CHEMICAL  SOURCES  AND  SINKS  AND  DAVE  FOR  INTERPOLATED  DN/DT 

- C IT  INTEGRATES  THE  CONTINUITY  EQUATIONS  TO  OBTAIN  FLUXES. 

_ c K 

IMPLICIT  RE AL l A-H  ,L ,N-Z ) 

REAL  Z,DT,DH,THF  .EPS, MASS, MG.MAGM,  TF 
INTEGER  ION, NED 

DIMENSION  MASSI2 > ,Q5IGN( 2 ) , VL ( 2) ,VU (2) ,FLUI 2) ,FLl< 2)  ,0101 2) 

> ,ANL( 2) ,ANMI2 ) ,ANU( 2)  ,PL (2  I ,PM(2  I ,PU(2  ) .CL( 3) ,CM(3) ,CU( 3) 

> ,Q(2 ) ,L( 2 ),Tl NCR(2) ,V( 2) ,FYS(2) 

DIMENSION  N(A,  300), T1  (3,300  ),  F(2) 

COMMON/ VN/UI  2. 300)  ,BG( 300) ,BM<  300) , GR(2 , 300)  , R (2 ,300)  , SL(  300  ) 

COMMON/ ND/ON ( 300  I , HN< 3 00 ) , N 2N ( 300 ) , 02N ( 300 ) , PH  I CN ( 300 ) , TN ( 300 ) 
COMMON/ALT/Z(30P),JMAX,JMAXI,DT,DH,THF,1TER,EPS,ION,TF,ITF 
COMMDN/SAV/NSA VF ( 2 , 300 ) , T 1 S AV ( 3 , 3 00 ) , F Y ( 2 , 300 ) ,UN ( 300 ) , EHT ( 3 00 > 
CQMMON/FON/JON ,JLL ( 5 ) ,JUL( 5) 

COMMON  /OELZ/HLL  , HUU , I T 

COMMON/ DEQ/O ION( 2 > ,PRAG( 2 > ,CP ( 2 ,3  00  ) 

DATA  0SIGN/-1.,1  ./, AMU/1  . 6726E-2A/, BK/1 .3B07E-16/ 

- C....  CALC  DENSITIES  AND  VELOCITIES  FOR  TIME  T*THF*DT 

- C....  AT  POINTS  J.J-1/2  AND  J+l/2 

T HP  = 1 .O-THF 
JbPl =J9*1 
I P R =2 
JGN= JS J 

IFIITER.LT. A)  J ON  = 1 

I F ( ( J.EQ.2)  .AND.! JSJ.EO.O)  ) WR I T E { 6 , 1 1 6 ) 

- Ufa  FORMAT (*ENTER  DFIJo) 

IF ( J .EU . JB .DR . J .EG  . JBS  + 1 ) GO  TO  110 

- C STARTING  FLUX  FOR  CONTINUITY  EQN  FLUX  CALCULATION 

IFIJ.LE.JB)  FYS C 1 ) = ( FLL(1)+FLUI1 ) ) /2 
IF(J.LE.JB)  FYS(2)s(FLL(2)+FLj(2I) /2 
GO  TO  111 

- C....  HODEQ  IS  CALLED  TO  FILL  IN  THE  DYN  EQUIL  REGION 
-110  DO  100  JA^JBPl , JBS 

CALL  HODEQ ( JA, JA-1  , UMAX ,N, T 1 ,R , SL ) 

100  CONTINUE 

- C....  VEL  IS  CALLED  TO  OBTAIN  THE  V E LOC 1 T I E S ( F LUXE S ) AT  THE  LOWER  1/2  PT 

111  CALL  VEL I J-l  ,CL  , VL  ,FLL ,N,TI  , JB) 

DO  350  1=1, ION 
T I NCR (I) =0.0 
Q ( 1 ) = 0 . 0 
350  F ( I 1=0.0 
JU  = J 

IF ( J.EQ. JB) JU=JBS 

- C CALL  CHEMO  TO  EVALUATE  ThE  SOURCE+SINK  TERM  AND  CALL  DAVE  TO  EVALUATE 

- C THE  TME  DERIVATIVE.  BOTH  CALLS  ARE  MADE  ONLY  ONCE  FOR  GRID  POINTS 

- C B c L 0 W THE  DYN  EQUIL  REGION.  FOR  GRID  POINTS  IN  THE  DYN  EQUIL  REGION 

- C THEY  ARE  CALLED  REPEATEDLY  UNTIL  THE  CONJUGATE  BOUNDARY  IS  REACHED. 


C + + + + •»■ 


c . . . . 

110 


100 

c . . . . 

Ill 


c 
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1 HO 


55 

— 

C 

So 

— 

57 

— 

5j 

— 

59 

— 

60 

— 

61 

— 

6 i 

— 

63 

— 

65 

— 

65 

— 

C . * . . 

6 6 

— 

C . . . . 

67 

— 

6 o 

— 

bl 

— 

70 

— 

71 

— 

72 

— 

73 

— 

355 

7-. 

— 

C 

7 5 

— 

76 

— 

7 7 

— 

7 0 

— 

300 

79 

— 

200 

80 

— 

C » » » » 

81 

— 

c * * • , 

82 

— 

C . . » t 

53 

— 

84 

— 

65 

— 

«b 

— 

87 

— 

88 

— 

360 

89 

— 

90 

— 

91 

— 

370 

9t 

— 

C . . . . 

93 

— 

c • . . . 

94 

— 

c . . . . 

95 

— 

c * . . . 

96 

— 

c . . . . 

97 

— 

98 

— 

99 

— 

1 00 

— 

C . . . . 

101 

-- - 

102 

— 

103 

— 

c — — 

1 C 4 

— 

c 

105 

— 

c 

1 06 

— 

c 

1 0 7 

— 

C 

108 

— 

1 09 

— 

T 1 NCk=DN/DT , G = S UUk{ E ♦ S 1 NK  , PM=  f UTURE  LPT  UF  TINCR,  AK=PAST  CPT  OF  DM / 
DO  200  J A = J , JU 
HLL=SL( UA) -SL( J A - 1 ) 

HUU  = SL < J ft ♦ 1 > — S L ( JA) 

CALL  CHEMO( IPN.JA .CIO.N.NSAVE , Tl ,THF ) 

CALL  DAVE  ( I GN,  JA.AM  , ANM , aNU , P L , PM , PU , N , NS A VE  ) 

00  300  I = 1 • I ON 

Q ( I ) =G ( I I +Q I 0(  1 > 

PM ( I ) =PM ( I ) - A N M ( I ) 

TINCRJ  1 ) =T  1 NCR  II)  ♦PKd  ) 

CALCULATION  OF  FLUX  USING  The  CONTINUITY  EuN.  start  at  LOWER  boy  and 
INTEGRATE  TO  FAR  LOWER  BOY.  THE  BDY  F LU  X =T  HE  BOY  FlUX  FROM  MGMtM  EON 
IF(JSJ.NE.O)  GO  TP  355 
S T S = 1 .0 

1F11TF.EQ.3)  S T S = 0 .0 
FYS(l)=FYS(I>*aiO(I>-PM<l>*STS/DT 
IF  ( JA.EQ.2)  F Y S ( 1 ) =FLL  ( I ) 

FY ( I , JA) = BM ( JA ) *FYS ( I ) 

CONTINUE 

PRINT  CONTINUITY  PAR AM  5 

1 F ( JON .NE .0 ) GO  TO  300 

IF ( JA .LT . JLL ( A ) . DR . J.GT  . JUL ( A) ) GO  TO  300 
WRITE  ( & , 666  ) J . J A ,0(1)  , T I NCR  (1  ) ,PM(  I ) , ANM  ( 1 ) 

C ONT I NUE 
CONTINUE 

IF  J = J 3 THEN  CALCULATION  OF  THE  UPPER  ARC  LENGTH  AND  BU  IS  DIFFERENT 
BECAUSE  THE  NEXT  PD1NT  IS  IN  THE  CONJUGATE  HEMISPHERE.  VEL  IS  CALLED 
AGAIN  TO  CALC  THE  VCL0C1TY  AT  THE  UPPER  1/2  PT 

1 F ( J.Ne  ,JB)GU  TO  360 

CALL  VEL( JBS.CU.VU.FLU.N.Tl  , JB) 

DFLS  = ( SL ( JB  S + 1 ) ♦ SL ( JBS ) -SI ( JB ) -SL ( J B ~ 1 ) ) / 2 .0 
BU=(BM(JBS)+BM(JiJS  + l))/2.0 
GO  TO  370 

CALL  VEL ( J.CU.VU ,FLU,N ,T1  , JB) 

DELS  = (SL(J+l)-SL(J-m/2.0 
BU= ( BM ( J ) ♦BH ( J* 1 ) 1/2.0 
BL  = (BM( J ) ♦ BM ( J-l  ) ) / 2 .0 


THIS  SECTION  SETS  UP  THE  ERROR  FUNCTIONS  FUJI  T INCR  =DN/DT  { F GR  = 
FLUX  CPT  ; 0(11  = SOURCE ♦SINK.  TF  2 I TF  ARE  PARAMETERS  FOR  OBTAINING 
VARIOUS  TYPES  OF  SOLUTION.  AT  PRESENT  ( T F , I T F ) = < 3 , 3 ) IS  THE  ONLY 
OPTION  BEING  USED.  IT  GIVES  A STEADY  STATE  SOLUTION. 

00  380  1=1 .ION 

I F ( ITF.FQ.3)TINCR(  I >=0.0 

FGR=-(FLU(I)/°U-FLL(1)/BL)/DELS 

..ERROR  FUNCTIONS  FORMED  

F(I)=(0(I)‘>DT-TINCR(1))/0FlS^FGR*DT 
IF ( J.F3. JB ) F ( I ) = F ( I )*4Q.O 

TINCR  AND  0(1)  ARE  DIVIDED  BY  DELS  To  COMPENSATE  FOR  THE  INTER- 
POLATION. F&R  2 C(I)  ARE  MULTIPLIED  BY  DT  INSTEAD  OF  OIVIDING  TINCR 
THIS  IS  DONE  FOR  EASY  COMPARISON  PF  PRINTEO  VALUES. 

THE  VELOCITY  Aj  THE  GRID  POINT  V ( I ) IS  CALCULATED  AS  THE  AVERAGE 
OF  THF  UPPER  AND  LOWER  VELOCITIES. 

T I N C R. ( I I = T I NC R ( I I/OFLS 
Q( I) = 3( I ) oDT/DEl S 


/ 
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FGtUFGRoDT 

V(  1 ) = .5M  VL  ( I ) ♦ VU ( I ) ) 

I F ( JON.NE.OIGO  TO  380 

....  PRINTING  OF  FACTORS  IN  TrtE  FRRjR  FUNCTIONS  

IF { J.LT . JLL ( 5) .OR . J .GT . JUL ( 5 ) )GP  TO  380 

WRlTt(6»666)  J, FLUID, FlLIII.FGR, 0(1), T I NCR (I)  , Fill,  V(I) 

666  FORMAT  ( 2X.4H  F I J , I 6 , 1 P 1 ?E  1 3 .5  I 
380  CONTINUE 
RETURN 
ENO 

, "piKt  *•>?  + , ! "It  + , i Oo?-*-,  ! "PiZL  »■>?♦  , !"^«^E»*?  + 

SUBROUTINE  VEL(J,PP.V,FLUX,N,T],JP) 

THIS  PROGRAM  WAS  WRITTEN  BY  EUGENE  YOUNG  (19781.  IT  CALCULATES  ThE 
VELOCITIES  AT  THE  POINT  ZIJ+1/2)  FROM  THE  ION  MOMENTUM  EQTNS  FOR 
D+  AND  H+ . PARAMETERS  FROM  THF  GRID  POINT  Z(J)  ARE  INTERPOLATED  TO 
GET  THEIR  VALUES  AT  THE  HALF  POINT.  THE  PARAMETERS  FROM  ST  MAURICE 
AND  SCHUNK  PSS  1975  ARE  TRANSFERRED  FROM  SUER  JP 

IMPLICIT  REAL ( A-H  ,L ,N-Z ) 

real  z, dt, dh.thf.eps, mass, mg, magm 
DIMENSION  MASS(2),jSIGN(2),V(2»,A<2),TIJ<2),PL(2),PP<3),PU<2) 

> ,FLUX(2),ZR(2),Q<2> , G 4 M M A ( 2),Z12(2),E(2),U1(2) 

0 I M F N S I ON  N ( N , 3 00  ) , T I ( 3 . 3 00 ) , F ( 2 ) 

C OMMCN / VN/U ( 2,30C  > ,PG(  3 00)  , PM  (300)  , C-R  ( 2 , 300  ) ,R  ( 2 , 300  ) , SL  l 300  ) 

C OMMON/ ND/ON ( 300 ) ,HN< 300) ,N2N (300 ), C2 N ( 3 00 ), PH  1 ON ( 300 ), TN ( 30 0 ) 
COMMON/ ALT/? ( 300 ) , JMAX , JMAX 1 , D T ,DH , THF , ITER,EPS,10N,TF,ITF 
COMMON/ S A V/NSAVE (2 ,300  ) ,T  IS AV( 3,300  ) ,FY ( 2,300) ,UN( 300) ,EHT ( 3C0) 
COMMON/ DEQ/Q ION ( 2 ) , OR  A G ( 2 ) , GP ( 2 , 3 CO ) 

COMMON/FCN/ JON , JLL (5). JUL(5 ) 

OATA  A/16.0,1.0/ ,MA5S/26.7616E~2A,1  .6726E-24/ 

Data  QSIGN/-1.,1./,Z12/1.0,1.0/,BK/1.38C7B-16/ 

EXPONENTIALLY  INTERPOLATE  AMBIENTS 

OA  = SCRT ( 0N( J )*0N  < J + 1 ) ) 

HA=S&RT(rlN(J)*HN(J  + l)> 

N2A=S0RT ( N 2 N ( J ) p N 2 N ( J ♦ 1 ) ) 

02A  = S0RT  (t]2N(J)*02N(J+l  ) ) 

TlJ(l  I = SCiR  T ( TI  (1  » J ) *T  1 ( 1 , J*  1 > ) 

TIJ(2)=SQRT(TI(2,J)PTI(2,J+1)) 

TEJ-SCRT(TI  ( 3 , J ) «-Tl  ( 3 , J ♦ 1 )) 

TNJ-SCRT(TN( J)*TN( J + l) ) 


CALCULATE  PARTIALLY  IMPLICIT  DENSITIES 

THp; 1 .O-THF 
NE  =0 .0 
N E U = 0 .0 
NE  L = 0 .0 

00  260  1 =1  , I ON 


,PU,PL,PM- 


PU( 1 )-THP*NSAVE(I , J + 1 ) ♦ TrlF*N(  I,  J+ 1 ) 
PL( I ) =THP*NS AVE( I ,J)  ♦ TNF*N(I,J) 

PP(I)=SQRT(PU(I)*PL(IJ) 

NEU  = NEU  + PU( I ) 

NEL  = NeL-*PL(  I ) 

NE  =Nc ♦ PP ( I ) 
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16b  260  CONTI NUF 

166 C ♦ ♦ ADO  NINO*)  AND  N(U?*)  TO  ELECTRON  DENSITY 

1 67 NfcU-NEU*N( 3,  J+l  ) 

16b  NfcL=NEl*N(3,J-l ) 

1 69 NE-NE-*-N(3*J) 

170  e>P(3)=NE 

171  C CALL  JP  TO  OBTAIN  D ( I ) , G A*M  A , AL  1 2 . A LS  1 2 2)  BID  USED  TO  CALC  V(l) 

172  CALL  JPIDA, HA. N2A.02A.TI J.TNJ.PP.C, GAMMA,  A L 1 2 , AL S 1 2 , B ) 

173  C CALCULATE  ALTITUDE  DERIVATIVES 

1 76 DFLSM5L  ( J*1  > -SL  I J)  ) 

175  DTE=( T1 ( 3, J* 1) -T 1 ( 3,J) ) /DELS 

176  DT 1 = C T 1 ( 1 , J+i ) -T  1 ( 1 ,J)  ) /DELS 

177  D T 2 = l T 1 ( 2 * J ♦ 1 ) - T 1 ( 2 » J ) I/DELS 

176  C,,,,  TERNS  IN  THE  MOMENTUM  EON.  CONSULT  ST  M 3 5(1975)  P910  EON  (19) 

179 C,t,,  THE  MONTH  EON  HAS  BEEN  C A 5 T IN  A SLIGHTLY  DIFFERENT  FORM  IN  TERMS 

ISO C,,,,  OP  THF  GEOPOTF  NT  I AL . (SEE  PRoG  NOTES).  OR  AG  = A TERM  FOR  TAKING 

1 a 1 C,,,,  COLLISIONS  INTO  ACCOUNT  in  DYN  EUUIL  REGION.  01Dn=ALL  thermal 

1S2  C,,,,  DIFFUSION  TERMS 

1 B 3 Du  301  1 =1  , 1 ON 

1^ RATII=PU(I  ) * T I ( I ,J*1)/(PL(I  > o T I ( I ,J)) 

15  5 R A T I E = NEU*T I ( 3, J+l )/( NFL*T  I ( 3,  J)  ) 

16b GR A = -MASS ( I ) -GR ( 1 , J + l ) / ( BK*T1 J( 1 ) ) 

IB 7 FI =A ( 1)* ( G P ( 2. J*1  )-GP( 2 , J)  ) 

16o OLNI =GRA*ALPG( RAT  1 I *R A T I E 1 2 C I ) ) / F I 

159 I K = 3 — I 

190  DRAC(])=-(FY(I»J)°(l+B(I))/N(lfJ)-FY(lK.J)/N(IK.J))/D(l) 

191  aiON(I)  = (QSl&N(I)/TIJ(  m»(GAKHA(  1)  *DTE 

192  > -(PP 1 JK ) /NE ) *( AL12*DT1-ALS12*0T 2) ) 

193  C 

1ch 01  ( I >=(OLNI*GRA  J ♦OIC'N(  I I 

193 C....  FORM  THE  RHS  OF  THE  MOMTM  EON.  UN  I I ) =NEU TR AL  WIND  TERM 

1 96  729  F ( I ) =-D  ( I ) *Q1  ( l ) *UN( J ) *&( 1 I 

197  IF ( JON.NE .0) GO  TO  301 

19c  C... .PRINT  ROUTINE  FOR  MOMTM  EON  TERMS  

199 IF ( J .L T . JLL ( 5) .OR  . J.GT . JJL ( 5 ) TOO  TO  298 

2 C'G WRITE(6.605)  J , Z ( J ) .OF  L 5 . DL  N1  , GR  A . F 1 , DR  A& ( 1 > , 01  CN  ( I ) , 0 1 ( I > . 

201  > RATI1.RAT1E 

202  29B  I F ( J.LT  . JLL  ( 3 I .UR  . J.GT  . JUL ( 3) ) GP  TO  301 

203  WRITE(6.605)  J , Z ( J ) . D ( I ) , B ( I ) . F (I) , GAMM A ( 1)  , A L 1 2 , A L S 1 2 

2 Oh 605  F URMflT  ( 1 X , L» , I 6.F9 .0, 1P1 2E1 2.6) 

205  301  CONTINUE 

2 Go C NOW  THE  VELOCITIES 

207  OET=e( 1) *e ( 2 > + B(  1 )»B< 2 > 

208  V ( 1 )=( (F ( 1 )+F( 2) )*B(2)*FI1))/0ET 

209  V(2)=((F(l)*F(2))+6(l)*FI2))/DcT 

2 10 F L U X ( I ) = V ( 1 ) «PP(  1 ) 

21 l FLUX(2)=V(2) *PP( 2) 

2 1 2 C PRINT  VEL0C1  TI  ES  

213  IFI JON.NE. 0)G0  TO  302 

2 1 h I F ( J .LT . JLL ( 5)  .OR  . J .&T  . JULI 5) )G0  TO  302 

215  WR I TE (6,606 J J. V< 1 ) , V ( 2 I ,DET ,F ( 1 I ,F( 2) 

216  302  CONTINUE 

21  7 606  FORMAT ( 2X.*J=«, 1 4 » 3X  « * V ( 1 ) = » , 1PE 1 1 . 4 . » V2  = * , El 1 .6 , * DET  = * 

2 1 B > .F11.6,*  F1  = *»E11  • 6 » * F2  = *»E11.6) 

219 RETURN 
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2 2D END 


221 Ctl"9iU**?»,  !"<*$%{.*«>?♦,  ln«JU»e?  + , I ••  WUit**?* 

2 22  SUBROUTINE  JP ( C A , H A , N2 A . 32 A , T I J , T N J ,PP , D , GAMM A , A L 1 2 , AL SI  2 , 6 ) 

223  C 

224  C THIS  ROUTINE  PROVIDES  THE  PARAMETERS  ON  P910  OF  ST  MAURICE 

225  C D SCHUNK  PSS  1975  . EQUATIONS  20 , 2 1 , 22  . 2 3 , 24 , 2 5 , 2 6 AND  THE 

22b  C RATIO  OF  NEUTRAL/ ION  COLL  FREQ5-B.  IT  USES  AVERAGE  DENSITIES 

227  C FROM  THE  INTERPOLATION  ROUTINES  TEPD  AND  TERS 

228  C 

2 2 9 IMPLICIT  REAL ( A-H  ,N-Z > . 

230  DIMENSION  A ( 4 I . A h R ( 2 , 4 ) , T I S T ( 2 , 2 ) , T I J ( 2 > , NU ( 2 . 2 ) , A MU N ( 2 , 4 ) 

2 ? 1 > , T I NT ( 2 ,4 ) ,NUX ( 2 > , NX ( 2 .4 ) , 0 1 ( 2 , 2 ) . D 4 ( 2 , 2 ) , NUP ( 2 , 2 ) , POL ( 6 I 

232 > ,CR(6),AP.  (6)»&R(b).D(2),GAMMA(2)»B(2)»7(2)»PP(3) 

2 33  DATA  BK / 1 . 3 8 07 E - 1 6/ . AM U / 1 .6 72 6E -2 4/ 

234  C ION  NEUTRAL  PARAMETERS  FROM  BANKS  AND  KOCKARTS  1973  P244 

2 35  C — — TABLE  9.13  PC' L A P I Z AB  1 L 1 T Y (POL),  MULTIPLICATIVE  (CR) 

236  C A TERM  (AR)  AND  P TERM  (BR)  P219 

2 37  DATA  PO L / . 7 9 , . 5 6 7 , 1 . 7 6 . 1 . 5 9 , . 2 1 , 1 . 1 / 

2 38  DATA  CR/4 .8E-13  , 1 .9E-1 2 , 3.7E-1 3 

239  > .3.4E-13 .9.7E-13.5.2E-13/ 

, 240  DATA  AR/ 10 .6 , 1 4 .4. 14 .3 , 10 .6 , 1 1 .6 , 10 .4/ 

J 241 DATA  BP/ ,b7 ,1  . j 7 , .«b , . 76.1 .05 , .64/ 

i 242  DATA  A/ 1 b.O . 1 .0 . 2B  .0,32  .O/.Z/l .0,  1 .0/ .52/1  .41421  / 

i 24a  — c the  following  code  comes  frum  j-p*s  subroutine  freo 
— c reduced  mass  and  temperature 

245  DC  11  1-1,2 


c 

c 


DC  11  J=  1 , 4 


AMS(1  , J ) - A ( I ) - A ( J ) / ( A ( I ) ♦ A ( J ) ) 

TINTn,J)  = (A(J)*>TlJin*A(I)*TNJ)/<Am-»A(J)) 


IF< J.CT.2)G0  To  11 

T1STII  ,J)=(A(J)=TIJ(1  ) ♦ A ( I ) ® T I J ( J ) ) / (A(  1 ) ♦ A ( J ) ) 

11  continue 

ION-NEUTRAL  COLLISION  FRECUENC1ES  

GM  = 2.C*TINT(  1.1) 

NX ( 1 , 1 ) =CR ( 1 )-0A -5 JRT ( GM  ) *( AR ( 1 ) -BR  ( 1 ) sALOC 10(GM  > ) 
GM=2.0aTINT ( 2,2  ) 

NX  ( 2,2)  = CRI  2 >»HA*SQRT(  Gf*)*(  AR(2  )-BR  (2  )*ALO&10(GM)  ) 

NX(  1 ,2)  = 5.0E-1 l-HA^SdR  T ( TINT ( 1,2) ) 

NX (2,1 ) -4.4E-1 1^3A*SJRT (T I N T ( 2 . 1 ) ) 

DO  HI  1=1,2 
NUX ( I ) =0 .0 

M X ( I ,3)  = 2.6E-9=*SwRT  (P0L(3)/AMR(  I ,3)  ) 0 ( At  2 A ) 
NX(I,4)=2.6E-°*5aRT(P0L(4)/AMR(I,4)>MD2A> 

DO  111  J = l,4 

NUX ( I ) =NUX ( I ) ♦NX  ( I , J) 

111  CONTINUE 

..  1 ON  - 1 UN  CULLISIONS  FROM  ST.M.3S  P920  DIVIDED  BY  2.15  SEE 
..  SCHUNK  3WALKER  PSS  1470  P1319  (1324) 

DC  113  1=1,2 
DO  113  J = 1 , 2 

NU(  I ,J)  = 1 . 2 7 2 6 * Z ( I )*“Z(  I ) » Z ( J)°Z(JI!*PP(J)C' 

> SORT  ( AMR  ( I ,J))/(A(I)*2.15»TIST(I,J)**1.5) 

At  = ( A( I ) *A( J ) ) ®P2 

B4(I,J)=C1.2*A(J)*A(J)-1.5*A(])PA(J))/AA 
113  CONTINUE 
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2 75 
2 76 
277 
2 78 
2 79 
2«0 
2 A 1 
2 n 2 
263 
2 p4 
2 5 
266 
267 
2 ? o 
2 8 •> 
2=0 
2^1 

292 

293 

294 
2 °5 
2°o 
297 

2 Q <s 
299 

3 00 

301 

302 
3 03 
3C4 
305 
3 0 1> 
3 0 7 
30  c 
3Q9 
3 10 


A T I UN 


C....  NOP  = Ni  U ' (FROM  ST  M 2 S)  

K = 3 

OD  20  1=1,2 

K = K - 1 

DO  20  J = 1 » 2 

NUP  ( 1 . J)  =1 .25*N'J  ( I , J)  MOM  I , J)*l  .5*AMR(  I , J)/Ad  ) 

A* T J Jl  J )/T  1ST  U , J > ) 

---  1F11.FU.J)  NUP  ( 1 , J)  = NU(  J , J>+1  .25*NU  ( I ,K  ) * ( D 1 ( 1 ,K  ) 

A*1  ,5*AMR  < I ,K  >/A  11  ><*TI  J(I»/T  1STM  ,KM 

20  CONTINUE 

C 

C THE  FOLLOWING  CODE  IS  FROM  J-P*S  SUBROUTINE  TRANSCO 

C 

N12=PP(1)/PP(?) 

M12=A(1)/A(2) 

X = NU( 1 .2 ) /NUPI 1 , 1) *< 1 .-NUP ( 2,  1 ) /NUP (2,2)) 

---  X = X / < 1 • -NUP ( 1.2) * NUP ( 2 , 1 ) /<  NUP< 1,1) *NUP (2.2))) 

AL12  = X1»TIJ(1  l/TIST  (1,2)*15,/8.*(N12+1  . I / ( M 1 2 ♦ 1 .) 

ALS12=AL12*M12*M12*T1J(2)/TIJ(1 )* 

A ( NUP( 1 ,1 )-NUP« 1 .2  ) )/(NUP ( 2, 2) -NUP (2,1)) 

0ElTA=3 ./ ( 5 ,*<N1 2*1  .)*  <M12*1 . ) ) *<  AL 12+N12*M12*ALS12  > 

CT=3K/(  AMUM  1. -DELTA)) 

00  90  1=1,2 

J = 3 - 1 

c CIFFUSION  COEFF  0(1)  AND  RATIO  OF  COLL  FRFC5  Ed)  

U(  I)-CT*T1J(  l)/(A(I)oNU(l,J)) 

B ( I ) = N UX  ( I )/NU(  I , J) 

90  CONTINUE 

GAMMA  ( 1 ) = 15  ,/E  ,*S2*(PP(  3 )*Z  U )*ZU  ) -Z  d ) *(PP(1  )*Z  ID  *Z  (1) 

> +PP(  2)  ( 2)  *Z  ( 2)  ) )/ ( 1 3.*S2/9  .*  ( PP(  1 ) «=Z  ( 1 )*Z  ( 1 ) 

> ♦PP(2)$Z(2)*Z(2))+PP(3)) 

GAMMA(2)=15.*S2/8.MZ(2>MPP(1)*Z(1  )*Z(  1 > 

> ♦PP(2)*Z(2)*Z(2)  )-PP(3)*Z(2)*Z(2  ))/ 

> ( 13.*S2/8.*(PP ( l )*Z( 1 )*Z( 1 )*PP(2) *Z(2)*Z(2) )*PP(3) ) 

RF  TURN 

END 

DATASET  IS  ABOUT  TO  BE  WRITTEN 


given,  rf  done 

ATIUN  DATaSET  HAS  NOW  BEEN  WRITTEN 


EDITOR  TERMINATING 


43/100  SECONDS  IS  ELAPSED  T] 
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I  MG 


0 6 / 2 7 . 


Lil  I,D-PLI6,DN=RSLPS»Ul 

1 ---  C ( PSLP5  ) 

2  SUBROUTINE  LOOPS  { S ,NEQ  ,N  , T I , 1 T AU,  J tJ  .SEC  ,DNDT  ) 

3 ___  r 


9 

5 

6 
7 
o 
9 

1C 
1 1 
12 
1 3 
i 9 
1 5 
lo 
1 7 

1 o 
19 
2u 
?.i 

2 2 
2 3 

2 4 

' 5 
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C SUBROUTINE  LOOPS  IS  THE  MAIN  SEQUENCING  CONTROL  PROGRAM.  IT  CALLS  SUt>- 

C PROGS  l) F 1 J 9 TFIJ  TO  OBTAIN  THE  ERROR  FUNCT10NSF1J  FOR  ThE  DENSITY 

C AND  TEMPERATURE  DIFFERENTIAL  EQUATIONS. IT  SETS  UP  THE  JACOBIAN  MATRIX  If 

t SUBR  JMATRX  AND  SOLVES  FOR  THE  INCREMENTS  USING  BOSLV.  BEFORE  EACH  TIME 

C THE  5nLUT  1 ONS  TO  THE  EQUATIONS  ARE  GUESSED  USING  A CUBIC  PRECICTLR.  THE 

C INCREMENTS  FROM  THE  SOLVER  ARE  ALSD  TESTED  TO  ENSURE  NUN  NEGATIVE 

C DFNS1TIES  (MODIFIED  STEEPEST  DESCENT).  FINALLY,  THE  RESULTS  ARE  PRINTED 

C bY  CALLING  SUBR  PRINT  NOTE  THAT  IF  THE  M OF  &RID  P01nTS=300  THE 

C FOLLOWING  ARRAYS  HAVE  THESE  DIMENSIONS--  D E L T A , R HS , S HR  ALL  1200 

C ,Wu?K<7500).  THE  ARRAYS  ARE  USEO  IN  JMATRX  AND  BOSLV  TO  SOLVE  THE 

L J A C 0 b I A N MATRIX.  DCRQ-ARRAY  FOR  SAvING  INDICATORS  DF  N ON CON V E R GE NCE . 

— c np/tep=predicted  dfns/temp.  note  that  because  uf  the  dyn  equil  region 

C THE  SIZF  OF  THE  MATRIX  VARIES  FROM  THE  TEMPERATURE  TO  THE  DENSITY  EqNS 

L JBS.MIT.IEQ  AND  Jb  ARE  ALL  USED  TO  ACCOMPLISH  THIS. 

c 

IMPLICIT  REAL  (A-H.L.N-2) 

RFAL  Z .DT .DH.THF  ,E PS,  TF 

INTEGER  10N»NEG,KS»K , N F L A G 

DIMENSION  5(NEQ,1) , DELTA! 1200), RHS( 1200) , WGRK( 7500), TEP( 300) 

> ,SHR(  1200  ),DCRQ(2,30CJ ,NP( A, 300  ,V(2) 

DIMENSION  N ( 9 . 300 ) , T I ( 3,300) ,F(2) ,ONDT( 2,300) ,DTDT (3,300) ,VS(2) 

COMMON /VN/U ( 2. 300) ,BG(  300  I , BM( 300) , GR (2 ,300) ,R ( 2 , 300) , 5L  ( 300 ) 

COMMON/ NO /UN ( 300  ) ,HN( 3 00 ) ,N2N( 300 ) , 02 N( 3 00 ) , PH  I DN ( 300  ) , TN ( 30  0 ) 

COMMON/ A LT/Z (30C),JMAX,JMAX1,DT, DH.THF, ITER, EPS, 1 ON,  TF , I TF 

COMMON/ SAV/N SAVE ( 2 , 300  ) . Tl SAv( 3 ,300  ) , FY( 2 ,300 ) ,UN(  300)  ,EHT ( 3 00 

COMMON/LPS/FPSN , DC  , I MOD  . I 1 , I 2 , 1 PR  I N , 1 PM  X , I PP  , I SKP 

COMMON/LQ/L ( 2)  ,0 ( 2 ) 

C DMMCN/DE2/0I DN ( 2 I »DRAG( 2 I ,&&( 2,30  0) 

DATA  JT I , I C ALL  ,DTSAV  , I T5AV 

> / 0,3,1.  ,-10000/ 

NT  =0 


35 


JTlr JTI+1 


^e. JBS=JMAX-JG+ 1 

37  M II =2* JB-1 


IEJ-2MMIT-2) 


39  JBPI = JB+1 

9 0 C DNDT.DTDT  ARE  DERIVATIVES  USEO  IN  PREDICTING  FUTURE  VALUES  UF  DENSITY  A 

91  L TEMP,  DNOTS  i OTOTS  APE  SAVED  DERIVS  FROM  PREVIOUS  TIME  STEP  ALSOUSEDIN 

92  C PREDICTION  BELOW  200KM  LOCAL  LOSS/GAIN  EQUIL  IS  USED  TO  PREDICT  DENSITY 

'.3 C i TFMP  THROUGH  A CALL  TO  HOFQ  . NP  IS  USED  TO  STORE  THE  PREDICTED 

99 L VALUE  SO  THAT  ITS  ACCURACY  CAN  BE  USED  TU  IMPROVE  THE  NORMAL  QUADRATIC  P 

95  C ICTIUN  TU  A CUBIC.  DENSITIES  ARE  SAVED  IN  NSAVE  BEFORE  PREDICTION  OCCURS 

9b C....  NT  = TOTAL  TUBE  CONTENT.  CALL  HODEC  TO  INITIALIZE  GP 

97 CALL  HOOEO( 1 , JMAX  ,N, T I ,R  , SL  I 

Lri DNU  T S = 0 


9 9 
j 

5 1 

92 
S3 
S 9 


D T DT  5 = 0 

99  DO  91  1=1,3 

DO  91  J= 1 , JMAX 

C....  NOw  PREDICT  TEMP  USING  QUADRATIC  PREDICTER 

IF(JTl.NE.l)  DTDTS  = DTDT( 1 , J) 

IF(JTj.NE.l)  DTDT(  I ,J)  = (TI(  I,J)-T1SAV( I ,J) I/DTSAV 


99 


* C • • • • 


( I I I I 

C f * t » 

A 12 


lFIJTI.El.l)  0 TOT ( 1 , J ) =0 
AT  LuW  A L T 5 USE  HOEC  TO  PREDICT  FUTURF  DENSITIES  AND  TEMpS 
OUT  FIRST  SAVE  OLD  TEMPS 
TKP-TISAV(I.J) 

T ISAVI  I , J)  = T I ( I , J) 

1 F I ( Z I J) .LT .2  00  ) .AND. ( 1 .FU .3 ) ) 

CALL  HoE Q ( J , JMAX  ,DT , THE , dcr  ,np  ,T  I ,NS AVE  ) 

IFII.EQ.3)  TpP ( J »=T 1 ( 3. J ) 

T I ( I , J)  = < ( DTOT  ( 1 , JI-DTOTS  ) *DT/OTSA  V + DTD  T <1  .J)  )=>0T^T1SAV(I  ,J) 
IFITI(I.J).LE.C.O)  T I { I , J) =T ISAVI I ,J) 

DON’T  USE  PREDICTOR  AT  A TURNING  POINT  

IF(DTDT(I,J)*DTUTS.LT.C.0>  TI(l,J)=lTISAV(l,J)+TKP)/2 
1FI1Tf.EQ.3I  T 1 I I , J ) = T 1 SAVI 1 . J) 

IF((Z(J).GT.2C0).AND.(1.EU.3)I  TEP  ( J ) = T 1 ( 3 » J ) 

IF (I .GT.ICN J GO  TO  A1 2 

NOw  PREDICT  DENSITIES  USING  CUbIC  PREDICTER 

IF(JTI.NE.l)  DNOTS=DNDT ( I , J ) 

1 F I JTI  .ME  . I ) DnDTI I , J > = <N( 1 .JJ-NSAVE ( I , J) )/DTSAV 
IFIJTl.LT.?)  D N D T S = D N D T I 1 , J ) 

NkP=NSAVE ( I , J ) 

NSAVE ( I , J) =N(  I , J) 

I F ( I . F 3 . l ) NT*  NT  «-BM  ( 1 )*  IN  (2  , J ) + N(  1 , J)  ) *DH/  < BG(  J ) *BM<  J)) 
IF(JTl.EO.l)  N ( 1 . J)  =DNDT  ( 1 , J)*DT«-N  ( 1 , J ) 

IF(JTI.GT.l)  N I I , J)  = ( ( DNDT  ( 1 , JI-DNDTS)  *DT/DTSAV-*-CNDT  ( I , J)  ) 

> * DT  +N ( I , J ) 

IFIN(l.J).LE.O-O)  N(I,J)=NSAVE(1»J) 

DON’T  USE  PREDICTOR  AT  A TURNING  POINT  

IF(ONOT(I.JI»ONOTS.LT.O.O)  N(I,J)=(N5AVE(1 , JHNKP  )/2 
IF(ITF.EQ.3>  N(  I ,J)=NSAVE(  I, J) 

NP 1 I , J) =N( I , J) 

GO  TO  Al 

THIS  SECT1DN  BLFNDS  THE  ORIGINAL  PREDICTION  INTO  THE  dhCTC-ChEM 
ECUILldRIUK  PREDICTION  TO  PROVIDE  A SMOOTh  JOIN  AT  200KM 
IFtZfjl  .GT.  200  ) GO  TO  M 
A=5*EXP(15*(7  (J  )-200)/200) 

Nil  » J ) = ( N ( 1 , J ) - A ♦ N P I 1 * J ) ) / ( 1 ♦ A ) 

N(2.J)  = (N{?,J)=>A*NP(2,J))/(1*A) 

T 1 ( 3 . J ) - ( T 1 (3»J)*A  + TEP(J))  / C 1 A 1 
NP( 1 ,J) = N ( 1 ,J) 

NP(2*J)=N(2»J) 

T£P(J)=TI(3.J) 

CONTINUE 


L f * * * 

L * f » s> 


END  PREDICTOR  

WR1TEI6.11A)  NT 

alternating  call  loop;  if  if  i j = i obtain  temperatures 

IF  I F 1 J = 2 OBTAIN  DENSITIES 
DO  2 ?o  1FIJ-I1.12 

ITcR  LUOPION  EACH  ITERATION  THE  JACOBIAN  IS  FORMED  AND  SOLVED  FOR 
THE  1NCS  OF  DENSITY  UR  TEMP.  THE  DENSITY  OR  TEMP  ARE  UPDATED. 

IF  THE  DENSITIES  AT  SUCCESSIVE  ITERATES  ARE  SUFFICIENTLY 
CLUSE  THE  SOLUTION  HAS  BEEN  FOUND. 

DO  220  1 TER=  1 .30 
I VC  =0 

...BOUNDARY  CONDITIONS  ON  DENSITY  AND  TEMPERATURE 


1 10 
1 1 1 
1 1 2 
1.13 
1 1 4 
115 
1 1 fa 
1 1 7 
1 Its 
1 19 
1 20 
121 
122 
123 
1 24 

125 
1 2 fa 

1 27 

1 2d 

1 25 
1 30 
1 31 
1 ? 2 
133 
1 34 

135 
1 36 
137 

136 
1 ?9 
1 4C 

151 

152 

153 
1 5*+ 
155 
1 4b 
147 
1 4c, 
1 49 
1 50 

151 

152 

153 
1 54 
1-55 
1 5 fa 
157 
15b 
15  9 
1 6C 
1 5 1 
1 52 
1 fa  3 

1 64 


CALL  HUE  3 * l.JMAX  fDT , THF  • OCR  t N , T 1 , NS  AV  E ) 

CALL  H0E3*JMAX,JMAX,DT,THF,DCR,N,T1  « N S AV  £ ) 

£-*♦  + ♦♦  C U M F-  'J  T E F1J  PROFILE  AMO  »S«  MATRIX  WHICH  BOSLV  USES  TO 
£♦♦•♦♦♦  SOLVE  THE  LINEAR  SYSTEM  ( (S)  J’MDFlTAI-  (FIJI 

C....  00  LOOP  FOR  CALLING  FIJ  

DO  145  J=2,JHAX1 

I F (<!PR .Ft. 2 ) . AND  . * J.E C .MI T I I GO  TO  147 
*R  = 2M  J - 2 ) 

JA  = J 

I F ( ( fPR.FQ.2>.AND.*J.GT.Jt5)I  JA=J+JOS-J 6 

IF* 1FIJ.E3.1)  CALL  T F I J( J A,Q , IPR , N, T I ,F  , JB, J6S ,V ) 

IF* IFlJ.Ft.2)  CALL  OF  1 J ( J A,0, IPR , N, T I , F , JB  , J6S , V ) 

RH5*«R*1  ) = F * 1 ) 

RHS ( KR  + 2 ) =F * 2 ) 

I F * 1PR.NE .2  I GO  TO  145 

C...  CONVERGENCE  CRITERIA  ON  VELOCITY  IF  REQUIRED 

00  143  1=1,2 
VS* 1 >=U* I , JA) 

I F * V* 1 ) .FO.O.O)  GO  TO  143 

IF ( A B S * (V*  I > — V S ( I ))/V(  I)  ).GT  . 1 . E -4  ) IVV=IVV+1 
143  U<  1 , J A ) = V * 1 ) 

145  CONTINUE 
147  CONTINUE 

t....  1JM  IS  A SWITCH  FOR  CALLING  JMATRIX  OR  NOT  .... 

1 JM  = 0 

IF ( ( I TER/ICALL) = I C A L L .EO.ITER)  1 JM  = 1 
I F I 1 TER .LE  . 3 I I JM  = 1 

IF(*IpR.EQ.3).AND.*lTEP.EU.2>)  UMzl 
I jj  0 = N F.  0 

1 F ( OCR T . ,E . 1 > I J M = I 
IF* OCR. NE. 11  1 J M = 1 
IFC1PR.EC.2)  I B 0 = I E 3 

IF* IJM.EO.l  I CALL  JMATRX * S ,RHS , 1 BD  , I PR ,0T  , JMAX  ,N,  T I ,F  , JB  , JB 
> , M I T ) 

£ + ♦•*■■►  INVERT  THE  JACOBIAN  MATRIX  *S*  AND  RECURO  ERROR  COMMENTS 
C + + + * FROM  THE  INVERSION  ROUTINE  *BDSLV*  ON  FILE  =IDCB  = 

CALL  B0SLV*1BD, 3,5,0, RHS, DELTA, WO PK,M FLAG) 

IF (NFLAG.EQ.O)GO  TO  55 
WRITE*b,215)  ITER,  M,NF LAG 
STOP  3 

55  I D I V=0 

0CR  = 1 
OCRP  = 1 .0 
DCRTzl  .0 

I F I IPR.NE.3)  GO  TO  135 

C TEST  • T 1 • TO  ENSURE  T 1 >0  * MUD  STEEP  DESCENT ) 

DO  137  1 =1  , IPR 

00  137  J=2, JMAX1 

1 UN  = 3 

I F ( I .EO. 1 PR  ) I 0N  = 2 
01NC=0FlTA( 2* J- 1 ON ) 

IF(ABS*D1NC/T1  * I ,J)  I .GT  .EPSN)  DCRP=0C-»ABS(TI(1,J)/DINC) 

I F *DCRP.LT  .OCRT  ) OCRT  = DC  R P 
137  CUNT  INLIE 

135  IF*  IPR.NE  .2)  GO  TO  144 


166  C II  ST  ' N * T Cj  INSURf  N>0  (Ml)O  S 1 1 f P P S T DESCENT  ) 

16b DU  14?  1 = 1,  I P R 

167  OU  1 42  J^2  , JMAX1 

163 1 UN  = 3 

1 69 1F(1  .fcO.lPR)  I U N = 2 

170  IJ=J 

171  IF(J.GT.JB)  IJ=J+JP-JBS 

1 7 2 1 F ( ( J-C-T  • J9  ) . AND  . ( J.LE  . JBS  1)  GO  TO  142 

17  i 01NC  = 0FlTa<2->IJ-JUN) 

17=, I F ( APS  ( DI  NC /N  ( I , J ) ) .GT  .fcPSN)  OCR  P = DC  * A B S ( N ( I , J ) / D 1 N C ) 

1/6  lFIOCRP.LT. OCR)  OCR=DCRP 

17c. I F ( 1 TER  .ECJ  . 1 ) 0 C R U ( I , J ) = OC  PP 

1 77  142  CONTI NUE 

17s L...  ADO  ITERATIVE  INCREMENT  TO  THE  ARRAY  ' N 1 OR  ' T J • AND  TEST  FOR 

179  C CONVERGENCE  WH^N  101V--0 

180  144  00  42  I = 1 , IPR 

13  1 1 UN  = 3 

16  2 IF(  1 . E Q . 1 PR  ) 1 ON  = 2 

183  DO  42  J = 2 ,JMAX1 

1 H D I Nc  = OE L T A ( 2* j- I On > 

1 86  I F ( 1PR .EQ .2 ) GO  TO  59 

186 T I ( I , J 1 =T  I ( 1 . J ) -0  INCe-OCRT 

197 I F UBS( D1NC/T1  ( 1 , J)  ) .GT  .EPS)  1DIV=IDIV+1 

19b CO  TO  4 2 

189  69  CONTINUE 

190  I J = J 

191  IF(J.GT.JB)  I J= J* JB-JBS 

192  I F ( ( J.GT . je  ) . AND  . ( J.LE  . JBS  ) ) GO  TO  42 

193  01NL-DFlTA( 2* I J-ION) 

1^4 N(  I , J ) = N ( I ,J)-D1NC*0CR 

146 1 F ( APS ( 0 I NC /N ( I , J ) ) .GT  . 1 -E -9  ) 1D1V=I0IV+1 

1 °6  4?  continue 

197  C 

198  IF ( IPR .NE  .2)  GO  TO  47 

199  IF( Jb.EQ. JBS)G0  TO  47 

2 nG C....  FILL  IN  DYNAMIC  EQUILIBRIUM  REGION 

2 C i 00  43  J = JBP!  , JBS 

2 02  C ALL  HUDEOI J , J-l , JMAX ,N  , TI ,R , SL  ) 

2 03  43  CONTINUE 

204  47  IF((ITE9/3)*3.EQ.ITER)  WRITE(6,113) 

206  WRITE (6, 112)  I TER, ITAU, I 0 I V , ! VC  , DC R , DC R T 

206  C...1F  OCR  HAS  NUT  GUNE  TO  1 BY  THE  TENTH  ITERATION,  GIVE  UP. 

207  IF ( (OCR -NE .1)  . AND  . ( ITER  .EQ  .10) ) GO  TO  230 

200  I F ( (Ot R T.NF  . I ) . ANO . ( I TFR  .EQ. 10 ) ) GO  TO  230 

206  (.*«■>  TlST  TO  SLF  If  CONVERGENCE  HAS  UCCURFD. 

8 1 C 1FI  IDlV-flVC.EQ.O)  GO  TO  224 

211  220  CONTINUF 

212  GO  TO  230 

213  224  1F(IFIJ.EQ.I2)  GO  TO  222 

214  2 2f  CONTINUE 

2 1 5 222  CONTI NUE 

216  C * * * SAVE  THE  TIMF  STEP  FOR  THE  PREDICTOR  AND  CALL  THE  PRINT  SUBROUTINE 

21/  0 TSAV=DT 

216  1FI1TF.EQ.3)  1TSAV=-10000 

219 IF(  JTAU-ITSAV.LT.ISKP)  RETURN 


I 02 


06/27/ 


i M, 


2?o 
2 21 
2 22 
223 
2 24 
225 
2?t 
227 
2 2 o 
2 29 
2'0 
2U 

2 3£ 
2 33 
239 
2 35 


I T S6V- 1 T AU 

CALL  PR1NT(IPMX,IPP,Z,JMAX,N,TI,1TAU,1TER,6,U,FV,NP) 

R E T Up  N 

230  CONTINUE 

CALL  PR1NT(1PKX,1,Z,JMAX,N,TJ,1TAU,1TER,6,DCRQ,FY,NP) 

W R IT  E ( 6 , 1 1 5 ) 

STJB 

215  FORMAT!*  1 T E R A T 1 DN  =*,I5.*  TIME  STEP  =*,15, 

A/,*  RETURN  FROM,  BDSlV  =*.I5) 

1 1 1 FOrmAt ( ] H , 1 4, 1P9F  1 2.2  ) 

112  FORMAT  ( 1 rl  , 4 1 7 , 1 P 9 c 1 2 . 2 > 

113  FORMAT  (/4X  , * 1 T E R * « 9 X , * J TAU*,9X,*1  P I V *"  » 9 X »S'1VC*»9X.*DLR*) 

114  FORMAT  ( /i-TLTAL  TUBE  CONTENT  = *,1PE13.5) 

115  FORMAT (-NON -CONVERGENCE  STuP*) 

E NO 


, T ! _iN  DATASET  IS  ABOUT  TP  BE  WRITTEN 


■ IVcNf  RF  DONE 

. T I UN  DATASET  MAS  NOW  BEEN  wRJTTfN 


+ _,_..  + _ + _4 _+_4  EDITOR  TERMINATING  28/100  SECONDS  IS  E L A P 5 t D TI 

R 4 Y 1 

LL  BE  CHARGED  AT  BACKGROUND  RATE 
l'MT,T=6  3OS*PT  = 10S*PR  = 3OO*PU  = D»DO8O  = O 
SSIGN,P??OSYM =2*9,16 
S S 1GN,P8 j3?0  = 1 ,9 , 16 
S5  IGN, SC  R = 6 
S$1GN,SCR=7 

l 1 b . 1 , 8N ,MA , OS =600 ,RP , SP 
L!b»2,3NfMD,DS=600,RP,SP 
ORTR  AN,S=pLl b,SN=RSMN 
0IT,S=PLI5.SN=RSMN,D=3521,0N=CRAY1 

0 file  GENERATED  ON  06/21/79  AT  0.81 

TILN  OATAScT  IS  ABOUT  TO  BE  WRITTEN 
TIuN  DATASET  HAS  NOW  BEEN  WRITTEN 

+— ♦-+-♦-+-♦-+-4  EDITOR  TERMINATING  36/100  SECONDS  IS  ELAPSED  Tl 

OR  TR  AN ,S  =PL 13 , SN  = GT53S 

31  T ,SrPLlB  »SN  = GTS3S ,0=3521  ,DN-CRAY1 


0 file  GENERATED  ON  05/23/79  aT  11.98 

T ! _.\  CAT  ASET  IS  A?,.UT  TO  BE  WRITTEN 
T I ON  D AT  ASET  HAS  N_W  BEEN  WRITTEN 

, -.4  -4-4_4-4.4_4  EDITOR  TERMINATING  29/100  SECONDS  IS  ELAPSED  Tl 

lsATRAN,$=Pl  I b , SN=R  SPR 
V I T ,S  PLlBfSN-PSPR*D  = 35?l  ,DN  = CRAY1 


FILE  GENERATED  ON  05/23/79  AT  11.98 


/ 


r i nc, 


06/27/ 


:D I T , D=PL IB ,DN=PSX 1N.UL 


1 

2 

3 

9 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 
19 
13 
lb 
17 
1 6 

19 

20 
21 
22 
23 
29 
25 
2c 
27 
2d 

29 

30 

31 

32 

33 
39 
3 5 
3b 
37 
35 
39 

90 

91 

92 

93 
99 


PROGRAM  PSXIN 

C I PSX  IN) 

C...  THIS  MAIN  PROGRAM  CREATES  A FILE  OF  DUMMY  INITIAL  CONDITIONS 
C...  TO  BE  'JSEO  IN  TEMPERATURE  AND  DENSITY  PROGRAMS 

C...  THE  PROGRAM  CALLS  AmBS  FOR  NEUTRAL  PAR  AMS  ,F 1ELD  FDR  FIELD  PARAMS. 
C...  AND  HYO  FOR  H-»  DE  NS  I T I F S 5 FOR  DETAILS  OF  THE  VARIOUS  PARAMETERS 
C...  CONSULT  MAIN  PROGRAM.  ANOX  IS  CALLEO  FOR  0+  DENSITIES. 

IMPLICIT  RE  ALIN) 

REAL  MCK 

INTEGER  NION.NDY.NY 

DIMENSION  D I 7 ) ,T  12)  ,C-Ll  300)  ,XS(  3 00)  ,RNI  2,300)  ,RT  1 { 3 ,300) 

> ,DS II 59) ,FD( 9) ,SZA( 300) 

COMMON/VN/NI  2. 300) , U( 2 , 3 00 ) , B G ( 300 ) , BM ( 3 00 ) , GR ( 300 ) , T I ( 3 , 3 00  ) 
COMMON/ND/ON  I 3 00  ) . HN ( 3 00 ) , N 2N I 3 00  ) , 02 N ( 3 00 ) , PH  I ON  I 300 ) , T N ( 30C ) 
COMMON/ALT/Z ( 300 ), JMftX , JK AX  1 , DT ,DH, THF , I TF R , E PS, M ON 
COMMON/NUSAVE  /NSAVE(2,3  00)  ,T15AV(3,3  00)  ,FY(2,300) ,UN(  300) ,AUG 
COMMON/FCN/J0N.1PR,IKEFP,ITAU 

C...  MUST  OF  THE  DATA  PARAMETERS  CAN  BE  FOUND  IN  THE  MAIN  PROGRAM. 

C...  T EE  = INITIAL  ELECTRON  T E MP E R A T UR E , Z C HE M = H E I GH T OF  CHEMICAL 
C...  EOUILIBRIUM(UNUSED)  . ZCO  = HE  IGHT  FOR  C+  DiFUSSIVE  EQUILIBRIUM 
DATA  PC  C . SC  Al ,Z0  , I SW  , IRI  T , JPR  I N , TEF.MMAX,  EPS  ,THF,PTS 

> / 2.2,  5 ,120,  2 , 1 . 125  ,9000,  9 .l.E-3,  1 ,120/ 

DATA  IDAY  , SEC  , BL ON , F 1 07  A , F 1 07  , A P , D E C , E T P AN , Z CHE M 

> / 7911  1 , 68 2 32  , 60  , 75  , 71  ,31  , 12  ,93100,500  / 

DATA  RE  , DT  ,IPIC,VO,  MDK  , ZCH  , ZCO  , HT OP  . AVMU  , E M 

> / 6370,1200.  9 , 0,1  .21 19E-8 ,1  200, 1 .E6.5000,  .577, 1.5  / 

OATA  RE  , DT  ,IPIC,V0,  MOK  , ZCH  , ZcO  , HTDP , AVMU  , EM 

> / 6370,1200.  9 , 0 ,1  .21  19E-8  ,1  200, 1 .E6.5000, .577,1 .5  / 

DATA  PI  , P2  , P3  , P 9 , P 5 , P 6 

> / 1051 , 17 .7 ,-2796 ,-5 . IE-9,6. IE -6,-3 .9E-6  / 

C + * + * PCO=-L  SHELL,  PTS  = « OF  PTS  FOR  1/2  FIELD  LINE 

C++++  SCAL=SCALING  FACTOR  BETWEEN  1 AND  5 

HR1TEI6.951) 

951  FORMAT  (®PCO»  PTS  ,SCAL  = 0 READ(1),Z0  «■ ) 

Wd1TE(6,952) 1SW,PCD,PTS,5CAl ,Z0 

952  FORMAT! I2.9F10.3) 

IF! SC AL.NE .0. ) GO  TO  91 
REWINO  1 

READ! 1IJMAX, PCD, ZO.SCAL, 1 D A Y , S E C , E T R AN , F 1 07 , F 1 07 A , A P , B L ON , 

1 DEC,((N(!,J),J=1,JMAX),1=1,2),I(T1(I,J),J=1,JMAX),I=1,3) 

1 ,( (U( I ,J) » J = 1 ,JMAX) , 1=1 ,2) 

91  CONTINUE 

C**-T1ME  STEP  : END  NEAR  lINF  135 
DO  221  JTI-1  ,MMAX 


95 

96 

97 

98 

99 

50 

51 

52 

53 
59 


C 

IF ( JT 1 .EQ. 1 ) GO  TO  66] 

C...  INFORMATION  REQUIRED  FOR  MAIN  PROGRAMS  IS  WRITTEN  TO  TAPE 

WR 1 TE I 2) JMAX .PCO.ZO.SCAL , IDAY  .SEC ,E  TRAN  ,F1U7,F107A  ,AP  ,BLON, 

1 DEC, I 4 N ( I , J) , J=1 , JMAX)  , 1=1 ,2) , I I T I II  , J ) , J - 1 , JM A X ) , I = 1 , 3 > 

I , I (UII , J) ,J=1 , JMAX ) , 1 = 1 , 2) 

STOP 

661  CONTINUE 

C...  XY-STARTING  VALUE  FUR  NEWTON  ITERATION  IN  SOLUTION  OF  STEADY  STATE 
C...  ION  TEMPERATURE ;DH=X-DI ST ANCE  BETWEEN  PUINTS;  OINTO  IS  USED  IN 
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55 

5 o 
57 
•5  6 
59 
6C 
61 
62 

63 

64 

65 

6 b 

67 


6 o 

69 

70 

71 

72 

73 

74 

75 
7b 
77 

7 o 
79 

8 3 
81 
8 2 
83 
P 4 
85 
3b 
67 
33 
89 

9 0 

91 

92 

93 

94 
93 

96 

97 
56 
99 

1 ao 
101 
1 02 
1 0.1 
1 '14 
1 65 
1 Cb 
107 
1 Ctf 
1 C 9 


C...  DIFFUSIVE  EQU1L  PROFILE  FOR  0*  ! I TE  ST  IS  USED  FOR  CONTINUOUS  ENERGY 
C . . . LOSS  TF  ST ; 

XY=10Q0.0 
DH  = 1 ./(PTS-1  .) 

1PTS=PTS 
X S ( 1 ) - 0 . 

NHE  = 0 . 

D I N T 0 = 0 . 

JMAX=2*IPTS-1 
1 T fc  S T = 0 

C ESTABLISH  PTS.  ON  FIELD  LINE  BY  CALL  TO  FIELD 

C....  R=RADlUS  TO  FIELD  PT  ; Z = AL  T ; SD1P=SIN(DIP  ANG)  ? G L = GE  OM  LAT 
C....  GR  = GRAV 1 TY  J 6M  IS  DROP  TO  MAG  FIFlD  STRENGTH  5 BG  = VAR  1 ABLE 
C....  COORD  FACTOR  ; DS  = STEP  5 1 Z E ( K M > ; XS=ARC  LENGTH  f*OM  EQUAT  (KM 
C 

DO  950  J = 1 , 1 P T S 

CALL  FlELD(j,JMAX,pCDtRF,ZO,SCAL,X,FD) 

Z ( J I =F 0 ( 1 ) 

5DIP=FD(2> 

C 0 I P = F D ( 3) 

G L ( J ) = F D ( 4 ) 

GR( J ) = F D ( 5 I 
b M ( J ) = F D ( 6 ) 
bG( J)=FD(7» 

XS ( J ) = FD ( 8 > 

lF(J.GT.l)  DS ( J ) =XS< J-l  )-XS( J) 

IF( J.EQ.1PTS)  GO  TO  1000 

C....  CONJUGATE  FIELD  PARAMETERS  

JU=JKAX+1-J 
GL ( JU) =-GL ( J ) 

GR(  J'J!=-GR(  J) 

Z ( JU  ) =Z  ( J ) 

BM ( JU ) = BM ( J ) 

BG ( JU) =BG( J ) 

953  CONTINUE 

1030  CONTINUE 

DO  17  1=1*  JM  AX 

c TRANSFORM  MAGNETIC  TO  GEOGRAPHIC  COORDINATES 

C AND  CALCULATE  SZ  ANGLE  AT  EACH  FIFLD  LINE  POINT  BY  CALL  TO  AMBS 

ZZJ=Z( I ) 

GLAT=C-L(  1 ) 

CALL  AMBS(I,IDAY.SEC,ZZJ,GLAT,DEC,ETRAN,F107, 

> F107A,AP,BL0N.D,T.CHI) 

C tt  * $ s « 

ON ( I ) =D ( 2 ) 

HN( I >=D( 7) 

N2N( I ) =D ( 3 ) 

U?N( I )=P(4) 

TN(I)=T ( 2) 

SZA ( I ) = C H 1 
U ( 1 « I ) = 0 
U( 2,1)  =0 

17  CONTINUE 

c • • • • 
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1 NG 

1 10 

c , , , , 

1 1 1 

— 

c . . . 

1 1 2 

— 

113 

— 

114 

— 

115 

— 

1 1 6 

— 

1 17 

— 

1 1 fa 

— 

1 1 4 

— 

19 

1 20 

— 

121 

— 

C . . . 

122 

— 

C . . . 

123 

— 

c... 

1 24 

— 

C . .. 

1 25 

— 

21 

1 26 

— 

127 

— 

1 2o 

— 

1 29 

— 

1 30 

— 

1 31 

— 

1 3 2 

— 

1 33 

— 

134 

— 

135 

— 

1 36 

— 

1 37 

— 

1 3d 

— 

C , , , , 

1 39 

— 

1 40 

--  - 

141 

— 

1 42 

— 

143 

— 

144 

— 

29 

145 

— 

C . . . . 

1 46 

— 

c . . . . 

147 

— 

c . . . . 

1 4b 

— 

117 

145 

— 

C 

1 50 

— 

C 

151 

— 

C 

152 

— 

C 

153 

— 

C 

1 54 

— 

c 

155 

— 

c 

156 

— 

C 

1 57 

— 

c 

1 5fa 

— 

C 955 

159 

— 

C 

1 60 

— 

317 

1 61 

— 

1 62 

— 

C * 0 * * 

163 

— 

1 64 

— 

, END  NEUT;  SET  1N1T.  TE  AND  ION  DENSITY  PROFILES.  OX  ( 1 ) 
ANALYTICAL  0*  DENSITY  IS  OBTAINED  FROM  SUdP  ANOX 
DO  317  1 = 1 , 1 P T S 
1 F ( lsW.EQ.3)  GO  TO  21 
Z Z J = Z ( I ) 

CALL  ANOX( 1 ,ZZJ,OX) 

IF(Z(I).LT.7  50.)  N ( 2 » I )=1.25*EXP(0.01198*Z(I)) 

IF  ( Z(I)  .gE  .750.)  N(  2,  I ) =12<.°*ExP<  2.  773E-3*Z(  1 ) ) 

IFIZUI.GE  .1000.0)  N(2,I>=2  9284*EXP(-3.5E-4*ZM>) 

CONTINUE 

1 F ( ISW.E0.2)  T 1 ( 3 , 1 ) =TEE 

THE  ION  TEMPERATURE  IS  OBTAINED  FROM  THE  UNIFORM  ELECTRON  TEMP 
USING  THE  STEADY  STATE  CONDITION  H E A T I NG = C OOL 1 NG ; 

THIS  IS  DONE  BY  A NEKTON  ITERATIVE  P ROC E DUR E J U SU A LL Y TE  IS  THEN 
CALCULATED  AS  THE  AVERAGE  OF  THE  UNIFORM  TE  AND  TI 
CONTINUE 

Gl  = (N(2,I)-*-0X/i6.)*<0X*N(2,I))/TI<3,l)**1.5 
G2  = 2.758  6E-10*GX*nN(I)*l.eE-9*N<2,I>‘,HN(I> 
G3={0X*(8.67*N2N(I)*3.6?8*NHE)+7.225*N(2,I)*NHE)*1.0E-9 
G4  = ( A.  729E-1  0*oX*HN(  I > ♦ 5 . 2 5 5E -1  0 * N ( 2,  I)  *0N(  1 ) ) *SQRT  ( TNI  I ) ) 
FBX-G1*(TI  (3*1  ) - X Y ) -G  2 * ( (SORT  ( X Y ♦ TN ( 1 ) ) ) * ( X Y -T  N ( 1 ) ) ) 

1 -(G3*G4)*(XY-TN(  1 )) 

DFX  = -(Gl*G34G4)-.5*G2*(3*XY*TNm)/S.iRT<XY4TN(I)) 

XY  =XY-FE  X/DE  X 

IF(ABS(FEX/(DEX*XY))  .GT.l  .OE-4)  C-0  TO  21 

TI ( 1 , I)  =XY 
Tl (2, I ) = X Y 

I F ( ISW.EQ.2)  Tl(3,])=(Tl(3,I)*TJI2»l))/2. 

ALTER  INITIAL  PROFILES  TO  DIFFUSIVE  EQUILIBRIUM  IF  NECESSARY 
N( 1 , I ) =0X 

1 F ( Z (I) .LT  .ZCO  ) GO  TO  29 
N E * N { 1 , I )+N< 2 • 1 > 

0INT0  = -16.*M0K*&Rm*DH/(BGm*(TI(2.i)*N(l,I)*TI(3,I)/NEl> 

N( 1 , 1 ) =N( 1 , 1-1 ) *EXP(DINTO> 

CONTINUE 

TEST  TO  SEE  IF  CONTINUOUS  ENERGY  LOSSES  ARE  TOO  LARGE  .... 

IF  SO  CHANGE  SCAL  OR  P T 5 TO  RFDUCE  STEP  SIZE 
AvMU=<COSO>  { EM  = LDW  ENERGY  OF  P.E. 

continue 

ET=e .618E-5*T 1 (3,1) 

ZNE =N( 1 , I ) 4N( 2 , I ) 

TEST  = ( (3.37E-12*ZNE**0.97)/(EM**0.941 ) * ( (EM-ET)/ 

1 ( E M - ( 0.53*ET ) ) ) **2 .36 
TE5T=TEST*CH/(AVMU*P&(  1 ) ) 

I F< Z(  I ) .GT  .1000  ) DE  = DE  * TE  ST 
IF  ( TEST  .LT.  1.0)  GO  TO  317 
JTEST=1TEST*1 

I F C ITEST.EQ.l)  WRITF(6,955) 

FORMAT ( *CONT 1NU0US  FNERGY  LOSS*) 

WP.I  TE  < 6,663)  I,Z<n.TEST 
CONTINUE 
CALL  HYD 

GENERATE  THE  CONJUGATE  HEMISPHERE  ***** 

00  110  J=1 , IPTS-1 
JU= JMAX+l-J 


106 


16  5 - 
166  - 
167  - 
166  - 

169  - 

170  - 

171  - 

172  - 

173  - 
17*.  - 
173  - 

176  - 

177  - 
176  - 
179  - 
1 BO  - 
181  - 
182  - 
16o  - 
1 89  - 
1 85  - 
1 8 1>  - 
187  - 
166  - 
189  - 

1 90  - 

191  - 

192  - 

193  - 

199  - 

195  - 

196  - 

197  - 
196  - 
109  - 

200  - 
201  - 
202  - 

2 03  - 

209  - 
2 C 5 - 
2 0b  - 
2 C 7 - 
2 °6  - 
2 09  - 

210  ' 
211  - 
212  - 
2 13  - 
2 19  - 
2 15  - 

21b  * 

2 17- 
2 13- 
219  - 


JF(ISw.EQ.l)  GO  TO  110 
N ( 1 , JU ) - N ( 1 , J) 

N(2,JU)=N<2, J) 

T1 ( 1 , JU) =T 1 ( 1 , J) 

T 1 (2,JU)*TI(2.J) 

- C..,»  ANALYTICAL  CALC  OF  TE  FOR  LOW  ALTITUDFS.  SPLICES  1 NTG  EXIST 

- INC  TE  AT  600  KM.  SEE  BRACE  AND  THE1S  GRL(  1978  ) P275 

IF <Z< J) .LT .600  ) 

> ATE  = P1*  ( P2*Z  ( J)  *P3  ) *■  E XP  ( P8*Z  ( J ) ♦ P 5 *N  (1  , J ) *P6*Z(  J ) »N<  1 , J ) ) 

A V = EXP ( ( Z ( J 1-600  ) /50 ) 

B V r E X P ! ( 600-7 ( J ) ) / 50 ) 

1FU<  J)  .LT  .900)  A V = 0 

IF  (Z  ( J ) .LT  .600)  Tl  (3,J)=(TI<3,  J ) <■  A V + A T E V ) / ( A V *B  V ) 
TI(3,JU)=T1(3.J) 

- 110  CONTINUE 

- C PRINT  SPEC IFIC AT10NS  

I F ( IR1T.E0.0)  GO  TO  221 
WRITE(6,1020) 

DO  106  J=1 , JPRIN 

WR  1TE  (6,111  ) J . Z ( J)  ,C.L(  J)  *BM(  J ) , BG  ( J ) ,GR  ( J)  ,N(  1 , J)  ,N<2  , J)  ,SZA  ( J) 
]F| (J/9)*9.EC.J)  WRITE (6,1020) 

106  CONTINUE 

00  105  J = 1 , JPR  I N 

I F ( J.EQ.l  ) WR I TE (6,1 1 2 ) 

1F( (J/9)*9.EG.J)  KRITE(6,112) 

I F ( ( J*  1 ) * 1 .EQ.J)WRITE(6»113)  J,Z(J),0N(J),HN(J»,N2N(J)f02MJ) 

1 , TN( J ) . T I I 3, J ) , T I ( 1 . J) 

- 105  CONTINUE 

- C 

221  CONTINUE 

- 616  FORMAT ( 1H  lSW^l  RETAIN  TEMPS  CALC  NEW  OF  NS  ' / 

1 • I S W = 2 CALC  COMPLETELY  NEW  PROFILES'/ 

1 ' I 5 W = 3 RETAIN  TE  BUT  CALC  NEW  TI'/ 

1 • I SW  =8  FIND  NEW  H*  WITH  OLD  0+'/) 

663  FORMAT! I5.2F10 .3 J 

- 665  FOP  MAT ( I 7 , 1 2F 10.2 ) 

- 1020  FORMAT ( 3X. ' J • ,8X, • Z ' ,8X , *GL ' ,8X BM • ,8X BG ' ,8X, 'GR' 

1 ,9X,  'OX  ' , 9 X , 'HYD' ) 

- 112  FORMAT ( 3X , 'J ', 8X  , 'Z  ' ,9X , 'ON ' ,9X ,' HN ' ,9X , 'N2N ' ,9X , '02N ' 

1 ,9X,  ' T N ' , 9 X , *TF,*9X,  *TI • ) 

111  FORMAT! I 8,F10.8, F 10  .6, 1 X.E10.8, !X , E9.8.F 1C  .8.8E1 2.5) 

113  FORMAT!  I 9,F 1 0.8 , IX ,E12 .6, 1 X ,E12 .6 , 1 X,E12  .8  , IX ,E1 2 .6, 1 X 

> 3F10.8) 

END 

- C.  ••  .ANOX. .ANOX.  . A NO  X . . A NCIX  . . A NOX  . . ANOX  . . ANOX  . . ANOX 

SUBROUTINE  A NOX ( J , Z , OX  ) 

- C 

- C THIS  PROGRAM  FITS  ANALYTICAL  FUNCTIONS  TO  ANY  EXPERIMENTAL 

- C D*  PROFILE  THE  F2  PEAK  IS  A PARB0L1C  MAX  AT  PT  3.  THE  VALLEY  IS 

- C AT  A PAPBOLIC  MIN  AT  PT  1.  THE  F2  PEaX  DENSITY  IS  A PARABOLIC  MAX 

- C The  FIRST  8 POINTS  SHOULD  BE  EQUIDISTANT  IN  ALTITUDE. 

- C ABOVE  The  ALTITUDE  CORRESPONDING  TO  PT  8 EXPONENTIALS  ARE  USED 

- C THERE  CAN  BE  ANY  NUMBER  OF  THESE  SECTIONS. 

- C READ  THE  ALTS  AND  DENSITIES  FROM  FILE  5. 

- C 
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220 
221 
222 
2 2 3 
2 2 5 
225 
2 2 o 
227 
2 ?o 
225 
2 3 C 
231 
2 32 
2 33 
2 3 5 
235 
23b 
237 
2 3 o 
2 3 5 
250 
25  i 

252 

253 
255 
2<o 
25b 
257 
2 5 o 
2 9 5 

250 

251 

252 

253 
255 

25  5 
25b 
257 
2 56 
255 
260 
261 
262 
2 h 3 
2 65 

26  5 
2 6b 
267 
26b 
26  9 

270 

271 

272 

273 
2 7<» 


DIMENSION  ZP I 10)  , Al 13)  ,h( 10) ,DEN( 10  ) 

UATA  1PT5/ 7/ ,< ZP (I) . I = 1 , 7 >/ 1 20,200, 230, 260, 300 ,500 , 1 000/ 

DATA  (DENI  I ) ,1=1  , 7 ) /I  E R . 3 .5E5 ,5 .4F 5 , 3 . 5 E 5 , 2 . 1 E 5 , 3 . 2E  5 , 5E  3 / 

IE ( J.GT.l)  GO  TO  5 

6 C 1 I = D E N ( 2 I 

All)  =-<DEN(  1 )-DEN(  2)>/(  ZP  (2  )-ZP(l) ) **2 

B I 2 ) =DE  N I 5 ) 

A(2)-_(DEN(3)~DFN(5l)/( ZPI5  ) — Zp<3>)  °*2 

lPTS2=lPTS-2 

DO  6 I = 3 , 1 P T S 2 

B(  I )=ALOG(OEN(  I + 2I/0ENI  I ♦ 1 1 I / { ZP ( I ♦ 21  -Z  P ( I ♦ 1 ) ) 

A(  I ) =DE  N ( I ♦ 1 )/EXP( B( I )*ZP( I+l >) 

b CONTINUE 

5 I S =C 

1 P T S 1 = 1 P TS-1 

00  10  1 *1 , I PT5  1 

1FIZ.GE.ZPI I ))  15=1 

10  CONTINUE 

IF ( IS.GT  .3)  GO  TO  15 

IF ( Z .LE .ZP(2 » » 0X=A(1I*(Z“ZP(2))*(Z“2*ZP(1)*ZP(2)J+B(1) 

IF(Z.GE.ZP<2>)  0X  = A(2)  *(  Z-ZPI  5)  )MZ-2*ZP  ( 3)  + ZP(5)  ) ♦ B ( 2 I 

I F ( I S • L T . 5 ) RF  TURN 

15  I S = I S - 1 

20  OX  = AI  1 S I <-E  XP  (B  ( I 5 ) »Z  1 

C RF  T URN 

END 

C....FIFLD.. FIELD. .FIELD..  FIELD.  .FIELD. .FIELD.  .FIELD 

SUBRUUTINE  F I E L D ( J , J M A X ,P  CO  , R E , Z 0 . S C A L , X , F D ) 

c 

C THIS  PROGFAM  0ETEP.M1NFS  THE  GRID  POINT  SPACING  GIVEN  JUST  JMAX* 

C H OF  GRID  POINTS,  P C 0 = L 5 H E L L , Z 0 = LOW  E R BOUNDARY,  SC AL = S C A L L 1 NG 

— c factor;;  X =CULAT 1 TUTE  , THE  fielo  parameters  ARE  transferred 

C THROUGH  FO(I):;  Ru  = FUUAT  OR  I AL  RADIUS  TO  FLUX  TUBE, INITIAL  VALUES 

C FCR  X AND  R ARE  SET.  DH  = D 1 S T ANC  E BETWEEN  POINTS  IN  THE  X COORDINATE 

c 

DIMENSION  F 0 < 9 I 

1 F ( J . N E . 1 ) GO  TO  950 

R0=RE  oPCO 

R = RO 

X = . 5 

PT5=( JMAX+11/2 

I P T S =P  T 5 

C"'*  SCALK  IS  A SCALING  FACTOR  TO  FNSURE  THAT  THE  X-COORD. 

— c ' " • ranges  from  o to  i 

RAT=  (RE  -6Z0) /RE 

0 M A X = ( SORT ( 1 .-RAT/PCO)  ) /( RAT  **2) 

SC  ALK=  1 ./S  INH(  SC  AL-»  ( QMAX  1) 

OH  = 1 / ( PTS-1 ) 

RAT=( RE/RO )**2 

C ESTABLISH  PTS.  DN  FIELD  LINE 

C....  R = R AD  I US  TO  FIELD  PT  ; FD1=ALT  ; FD2=SIN(D1P  ANG)  ; FD5=GE0m  LAT 

C....  F05  = GRAVITY  ; FDfc.  IS  PROP  TO  MAG  F1FLD  STRENGTH  ; FD7  = VARIA8LE 

C....  cPURD  FACTOR  ; DS=STEP  SIZE(KM)  { FD8=ARC  LENGTH  FROM  EQUAT  (KM 

C 

950  OX  = 1 .-( J-1)/(PTS-1  .01 
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I F ( J.EQ.1PTS ) GC  TP  4 
, Q=THE  DIPOLE  COORD  DETERMINED  FROM  SINH(KQ)=DX 
5CX=DX/SC ALK 

G = AL0G(SCX*5QRT <SCX**2+I ) I/SCAL 
SHX  = S I N ( X ) 

CHX=COS (X) 

. THE  NEXT  6 LINES  ARE  A NEWTON  SOLVER  FOR  THE  EQUATION  F ( X ) = 0 
, THIS  DETERMINES  THE  C0LAT1TUTE  X 

FEX=(R0“*2J<'(SHX<-*^)-<RE**2)*CHX/0 

DEX=(RQ*g2)*A."»(5HX»<,3)*CHXMRE*®2)°SHX/Q 

X=X-FEX/DEX 

I FI ABS (FEX/I DE X*X  ) » .GT  .1  .OE-6)  GO  TO  3 
GO  TO  5 
X=1 .570796327 
S H X = 1 • 

CHX=0 . 

■--LAT.  RADIUS.  DIP 
R = RD*SHX«=*2 
F D ( 1 ) = R -R  E 

SQTH=SDRT ( 3.*(CHX®*2)+1.) 

FD(2)=2.*CHX/SQTH 

FD(3J=SHX/S0TH 

F D ( 4 ) =1 .570796327-x 

FDI5)=FD(2)*3.98E+10/((RE+FD<1))**2) 

FD( 6) =1 .0E-5»( RE**2) *S3TH  / ( r»*3) 
FD17J=SCAL*C0SH(SCAL!>Q)i>FD(6),>SCALK 
0 S =1 .0E-5*DH/F0 ( 7) 

X X = A LOG ( 1 .732-CHX+SQTH1 

FD18)=RD*.  26663-1  XX  +SINHI XX )*COSH (XX)) 

RETURN 

ENu 


SUBROUTINE  AMBS(J,IDAY,SFC,ZZJ,GL,DEC,FTRAN,F107, 

> F107A,A»,RLDN,D,T,5ZA) 

THIS  PROGRAM  EVALUATES  THE  SOLAR  ZENITH  ANGLE ,0E TERM  I NE S THE 
THE  DAY  AND  TIME  AND  CALLS  A.E.  HED1NS  MsIS  MODE L ( GT S 3 S ) TO  GET 
THE  NEUTRAL  DENSITIES  AND  TEMPERATURE 

DATA  PLAT  , PLON  , HEC  , KTRAN  , PI  ,ICNT 
1 / 1.375  , 1.222  , 0.0  , 43200  , 3.14259,  0 / 

CORRECT  TIME  FDR  FULL  DAYS  AND  YEARS 

IF(J.NE.l)  GO  TO  1000 
NY  = I NT ( I DAY/1000  ) 

ND Y = MOD ( IDAY ,1000) 

1F(M0D(NY,4).EQ.0JLY=366 
IF (MOD (NY, 4) .NE.0»LY^365 
S X = AMOD I SEC , 86400  .) 

NDY=NDy+JNT( SEC/86400) 

NY  = NY+INT(NDY/LY  ) 

ID  = 1000oNY-fMGD<NDY,LY) 

) CONTINUE 

TRANSFORM  MAGNETIC  TO  GEOGRAPHIC  COORDINATES 

AND  CALCULATE  SZ  ANGLE  AT  EACH  FIELD  LINE  PUINT 

BLUP-PLONOPI /I 80.0 
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XM=C0S(GL)*CUS(BL0R-PL0N> 

VM=C05(CL)*S1NIBL0R-PL0N) 

ZM=SIN(C-L) 

XG=XM*S!N(PLAT)4ZMOCOS(PLAT) 

YG  = YM 

ZG  = -XH*CDS(PLAT)-»ZM‘IS1N(PLAT) 

GL AT =AS I N( ZG I 
GIATO^GL  AT»1 8o»/p  I 
G L ON  = I P l ON  •»  A T A N 2 (YG*XG) )®180./P1 
SATMsX-ETRAN*  93200.0)  / 3 600  .-G  LON/ 1 5.0 
HH= ( SAT-1  2 . ) *1 5 . *Pl /1B0  . 

S7A=AC0S (COS (GL AT ) *C05 ( DEC) *C05IHH) 

> + SIM0LAT  ) » S I N ( J c C ) ) 

C CALL  GTS3S  FOR  NEUTRAL  PARAMS 

CALL  GTS35(ID.SX,ZZJ,GLAT0,GLON,SAT,F107A,Fl07tAP,48.D.T) 
665  FORMAT! 17.9F7.1) 

RETURN 

END 

C HYO . . .HYO . . .HYO  . . .HYO . . .HYD  . . .HYD . . .HYO . . .HYD 

SUBROUTINE  HYD 

C,,,,  HYO  PRODUCES  A GOOD  INITIAL  PROFILEIH+O  FROM  A UNIFORM 


351  C,,,,  PROFILE  HDENS=CONSTANT  , USING  A SHOOTING  METHOD  SEE 

352  C,,,,  P RICHARDS  PHD  THESIS  1978.  ALSO  BAILEY  ET  AL  PSS  1978  P753. 

353  C...  ARRAYS  A.B.C.D.E  ARE  STORAGE  ARRAYS, ARRAY  T IS  A STORE  FDR  NIH*I 

359 C...  GRAD- ALT  I TUDE  BELOW  WHICH  H*  GRADIENT  IS  T E S T E D . T M A X/ TM  I N = M AX /M  I N 

355  C...  DENSITY  ALLOWED. 

356  IMPLICIT  REAL(N) 

357  DIMENSION  A ( 1 5 o > , B ( 1 5 0 ) , C I 1 50 ) , D ( 1 50 ) , E < 1 50  ) , T ( 1 50  I 

35B REAL  Z ,0T ,DH, THF  , EPS , GRAD,  TMAX  ,TMI N 

359  INTEGER  N I UN, NEC 

3 60 COMMON/VN/NI  2 ,300  ) ,U(  2 ,300) »BG(  300)  ,BM(3  00),GR(3  00),TI(3,3  00) 

361  COHMGN/ND/CN ( 300  I , HN ( 300 1 , N 2N ( 300  I , 02N<  300 ) , PH  1 ON ( 300 ) , TN I 300 ) 

362  C0MM0N/ALT/Z(30D),JKAX,JMAX1,DT,DH, THF, ITER, EPS, NION 

363  COMMON/NUSAVE  / N S A V E ( 2 , 300  ) , T I S AV  ( 3 , 300  I , F Y ( 2 , 300  ) , UN  ( 300  ) , A UC- 

369 CUMMON/FON/ JON, 1 PR  , IKEEP , I TAU 

365  C...  V5TART=E0UATI0RAL  DENSITY  FOR  SEARCHING  PROCEDURE  ;G25=SW1TCH  TO 

366  C...  GUIDE  THE  SEARCH;  VMORE  VLESS  ARE  'USED  IN  BINARY  SPITTING. 

367  C...  HDENS=UNI FORM  INITIAL  H*  DENSITY.  IGO  IS  A SWITCH  FOR  VARIOUS 

365  C...  MODES  OF  OPERATION.  7LBDY  IS  THE  LOWER  BOUNDARY  FOR  H*  SOLUTION. 

369  C0MMDN/A1/VSTART, G25, VMORE , VLESS 

370  DATA  RE  , 1FREQ,  BK  , DELTA  , HD  E NS  , IGO  , ZLBDY 

371  1 / 6379  , 10  , 8.2522E+7,  10  ,2.5E*3,  5 , 960  / 

372  DATA  IRIT  , IT  , ZPRIN  , GS AO  , TMAX  , TMIN.IPR1N 

373  1 / 0 , 0 , 1000  , 500  , 1.E5  , 10  , 0 / 

379  DH2=2*DH 

375  OT=I 200 

376  I E G=  I J MAX*  1 )/2 

3/7  TKEEP=N( 2 , IEQ> 

378  T I ( 3 , I E 0 ♦ 1 I = T I ( 3,  IEQ-1  ) 

379  T I ( 2, 1 EQ*1 ) =TI ( 2,  IEQ-1 ) 

380  N( 1 , IEQ-H)  = N ( 1 * 1EC-1 ) 

381  N(2.20)=HDENS 

3-2 C 

3° 3 16  DO  17  I = 1,1  EG 

3-9 UNI  I ) =0 


110 


TIM., 


Cfc/27 


3 9 5 

3B6 

3 8 7 

3 3 6 

389  

390  

391  

'392 

393  

399 

395  

39b 

397  

393 

395  

50C 

5 01 

502  

503  

5C5 

50  5 

5 0b 

507  

5Gb 

509  

510  

511  

512  

513  

515 

515 

5 1 o — - 
517 

51c 

519  

520  

521  

522  

523  

525  

525  

5 2 o 

527  

5 2 o ~ ~ — 

529  

530  

531  

5 *c 

533  

535  

533  

53b 

537  

5 3 a 

539  


I F I 7 ( I ) . L T . 7 L B 0 Y ) 1500  = 1 

FY1 1 , I )=0 

17  CONTINUE 

C...  THE  00  20  LOOP  EVALUATES  THE  VAR1DUS  TERMS  IN  THE  MOMENTUM 

C...  EQUATION.  THAT  IS  GRAVITY, THERMAL  DIFFUSION  CULLISIUN  FRFCUcNCIES) 

00  20  l = 1 50C  - 1 , IEC 
A L =0 

OTE--ITI (3, I ♦ 1 ) — T I(3» 1-1  ) ) /DH2 
DTl=-ITII2.I*l)-TI(2,l-in/DH2 
T SQT  = 5 QR  T ( T I ( 2 . I ) ) 

V20=6.957E-11*TSUT*ON( I )*5.5E-9*HN( I ) 

V12=. 075/1  TSqT->TI  (2,1)) 

V21  = l .2/(TS0T*TI <?, I ) ) 

IFI1G0.EQ.5)  N ( 2 , I) = HOENS 
C....  THERMAL  DIFFUSION  COEFF  AL  .... 

I F ( Z ( I ) . LT  .550  ) GO  TO  23 
1 F ( z I I > • GT .2500)  GO  TO  23 
EN  = N« 1 , I )/N(2.  I ) 

31=-0. 159561 

B2=l . 2 505 19*0. 5 8 3095 /EN 

B3=2 .750533*2 . 332381 * E N 

AL  =0.08823  53  *<  EN+1IM  1 6*  (B3/EN-B1  !♦  f B 1 /EIM-B2  1 ) 

1 /IB1**2-B2*B3) 

23  CONTINUE 

NS A VE ( 2 , I ) = N ( 2 » I ) 

C 1 = BG ( I ) » 8 K o ( (DTI+DTE) 

1 -TI(3,1)*(N(1,I^1)-N(1,1-1))/(DH2*(N(1,1)+N(2,I)))) 

C 2 1 -GR ( I )+V20*UN(  I ) 

C3  = -BK=>N(  1 , I ) »AL»DT  I*6G(  I ) /(  N(  1 , I ) *N(2  , I ) ) 

C ( I )=C1 +C2+C3 
D( J»=V21*N( 1, 1 > ♦ V20 
E II >=U( 2,1 ) 

C IFIABSIUI 2, I > ) .GT  .YMAX  ) WRITe(6,201)  U(2,l) 

C WRITE!  6,205)  I , 2 I I ) , C 1 . C 2, C 3 ,C (1  ) , D ( I ) , UT I , DT E 

C l , N ( 1 , I ) , BG ( I ) 

20  CONTINUE 

IF1IG0.EQ.5)  1 G 0 = 1 

C...  THE  00  25  LOOP  EVALUATES  THE  PRODUCTION  AND  LGSS  TERMS  IN'  ThE 
C...  CONTINUITY  EQUATION. 

DO  25  I =1500-1  , 1 E 0 
6ETA=2.3E-11*SQRTITI(2,I))*DN(I) 

PRC0H  = 2.5E-1 1*SGRT( T N ( 1 ) ) »HN ( I ) »N  I 1 * I ) 

I F ( I .EQ. 1500 ) VCHEM=PRODH/BETA 

A(  1 ) = (PRODH*IGO*N<  2 ,1  l/OT  »/<BG<n*BM(  I)) 

6(1  )=-( BETA* IGO/UT)/( 8G(I ) - 8M  ( I )) 

1F( 1RIT.NE .2  ) GO  TO  25 
IFfI.EG.ll  WRITe<6,211) 

WR1TE(6,20  5)  l.Z(I),A(n,B(n,C(I),D(l) 

25  CONTINUE 

C...  VST  ART  IS  THE  FQUAT 10RAL  DENSITY  TO  START  THE  SEARCHING  PROCEDURE 
C...  DELTA  IS  THE  INCREMENT  TO  AOD  ON  TO  VSTART  IF  SEARCH  IS  UNSUCCESSFUL 
C...  UNTIL  BINARY  SPLITTING  STARTS  IJK=CUUNTER  TU  DETERMINE  NON-CONVERGENCE 
IF(N(2,IEQ) .EQ.N(2,2C)  ) IG0=0 
IF(IGD.EO-O)  TKFEP=N( 2, IEQ) 

VSTART=2*NI 2 ,1EQ>-TKEEP 


n ng 


G6/27/ 


i 


440 

441 

442 
<.<.3 

444 

445 
44b 
447 
44o 

449 

450 

451 
<*52 

453 

454 

455 
45b 
457 

456 

459 

460 

461 

462 

463 

464 
4 6 5 
4 6 b 
467 
466 

469 

470 

471 

472 

473 

474 

475 
47b 

477 

478 

479 

480 

481 

482 

483 

484 

485 
48b 
487 
4 36 

489 

490 

491 

492 
49  3 
4 94 


DELTA=0.1*ABS(TKEEP-N(2,IEQ)> 
TKEEP  = N( 2 , 1 E Q ) 

1 JK  = 0 
R A T = . 0 5 


C :::::: 1 F VST  ART  IS  NO  GOOD  COHE  BACK  TO  HERE  t START  AGAIN 
26  N(2, IEQ)=V5T4RT 


T ( 1 E Q ) = v$T  ART 
1 JK  = 1 JK*1 

IFI1JK.EQ.4)  0ELTA=10 
IF(IGO.EO.O)  DtLTA=.3*N(2,IEQ) 

I F ( 1G0.E0.0)  WR  1 T£ ( 6 , 204 ) ! JK , VS  TART , VIE 5S , VMORE , VCHEM 
IF ( 1 JK .EG  .50)  STOP 
PH  I T = 0 
I =0 
J = I E Q 


c;;;;:;come  back  to  here  to  find  next  value  along  field  line 
c 

25  J = J-1 


I = J -*■  1 

DELPHI  =DH*|M  1 >*B(  I ) *N(2,  I)»  /(RE»1.0E*5) 
PH1T=PHIT+DFLPHI 
FY(2.I)=(PHlT)*BH(I)*RE*1.0E+5 
U(2,J)=FY(2,I ) / N ( 2 . 1 ) 

F1=BG(I)*BK*(TI(2,I)+N(2,I)*TI(3,I)/(N(1,I)+N(2,I))) 
F2=-0.5*{  C(IIK(I-1)  > /F  1 - 0*FYJ  2,  1)  oDU)/(  F1*N(2  , I)  ) 

F 3 =-F  Y (2»I  ) «=D  < 1 )/(Fl*N(2«I  ) ) 

F 4 = 0 
F 5 =0 
F 6 = 0 

IFUT.LT.4)  GO  TO  251 
F4  = F Y ( 1 * 1 )*16*V12/F1 
F5=-(U(2,J)-EI J))/IDT*F1) 

F6  = -E(  1 )<=(  E(  J)  -E  ( I ))  *BG<  I )/  (F1*DH  ) 

251  ALOG= ( F2+F 3+F5+Fb) *DH 

YHAX=S0RT ( Fl/E  G( I I ) 

N ( 2 « J ) =N ( 2 » I ) *EXP( ALOG) 

T ( j I =N ( 2 » J ) 

I F ( U ( 2 * J ) .LT ,-YMAX)  N ( 2 , J ) =5  .0  E ♦ 5 
IF (U( 2 , J) .GT .YMAX)  N(2,J)=2.0 

C....  GO  INTO  PRINT  ROUTINE  

IFtlPRlN.NE.O)  GO  TO  51 
I F ( I JK.LT.200)  GO  TO  50 
51  CONTINUE 

C GO  TO  50 

1FIZID.LT  .ZPR  IN)  GO  TO  39 

IFI  I .EO.IEQ)  GO  TO  39 

IF ( ( I /1FRE0) *1 FREO.NE  . I ) GO  TO  50 

39  WRITE ( 6»205)  J , Z ( J > , NS AVE < 2 . J ) , N ( 2 , J ) , F 1 , F2 , F3 , F Y < 2 . I> 
C 

50  CALL  blN( J,T, THIN, TMAX, GRAD, DELTA,  1400, VCHEM, RAT) 

I F ( &2  5 - 1 ) 26,25,40 

40  CONTINUE 

00  42  1=1 , 1400 


1)2 


T 1 \G 


06/27, 


9 9 3 
990 
997 
996 
999 
500 
5 C 1 
5*02 
503 
5 09 
5 C 5 
5 Co 
5C7 
50a 
509 
5 1 G 

511 

512 
5 ! 3 
51* 

513 
516 


520 

521 

522 

523 
529 

525 

526 

527 
5 2 o 
529 
5 3 C 

531 

532 
523 
3 3 9 
33  5 
3 3 e> 
537 
3 36 
5 2 9 
5 90 

591 

592 
5 93 
599 
395 
59fe 
597 
3 9b 
5 99 


N(2.I)  = 1.13*HN<!)oU(l,I)*SORT<TN<m/(aN(I)*SGRT<TIC2.im 
92  CONTINUE 

RETURN 

201  FORMAT ( 3 X , *U( 2, I ) * • . 1 P E 1 1 .9  ) 

209  FORMAT ( 1H  , I 9 , 3X , 1P6E 1 3 .5 ) 

205  FORMAT ( 19 ,F9 .2.1P1 1D1 1 .2) 

211  FCRMATI1H  ,3X . * I ' ,8X , *Z ( 1)  • ,6X,  'A  ( 1)  * , 7X , •&(  1 ) • , 7X,  *C <1)  • , 

1 8 X , ' 0 ( I ) ' ) 

STOP 

END 

C:>9BlN99$tbIN'>9‘,9ElN9999blN'>i,99BlNs“e'9®BlN,:,0:,0PIN‘:‘s’:>0blN99:>,:’E.  IN90 

SUBROUTINE  blNlJtTEST.YMJN.VMAX.GRAD.OFLTA.lTMAX.VCHEM.RAT) 

C < B . A > 

c...  this  is  the  einary  splitting  routine  test=density  to  be  tested, 
implicit  REAL1L ,N) 

REAL  Z ,DT ,DH,THF  .EPS 
INTEGER  NION.N'EO 
REAL  YM1N.YMAX .GRAD 

COMMON/ ALT/ Z (300).JMAX,JMAX1,DT,DH,THF,ITER,ePS,N!0N 
COMMON/ A 1 /VS  TART .02  5 , VMORE ,VLESS 
DIMENSION  TESTI300) 

OATA  I S E 0 , VMORE  » VLESS 

1 / 0 , 0 » 0 / 

G25  = 0 

C...  TEST  TO  SEE  IF  LOWER  BOUNDARY  HAS  BEEN  REACHED,  IF  SO,  TEST  DENSITY 

c...  against  chemical  equilibrium. 

IF ( J.GT  . 1 T M A X ) GO  TO  51 

VDIFF=TEST< J) -VCHEM 

IFfABSI VDIFF/TESTI J)  ) .LT.ftAT)  GO  TO  92 
IFtVDIFF)  51,53,53 

C...  IF  SUCCESSFUL  SOLUTION  INITIALIZE  AND  RETURN  025=2  TO  INDICATE 
C...  SUCCESS  TO  MAIN  PROGRAM. 

92  VMORE  =0 

VLESS=0 
I SE  Q = 0 
G25  = 2 
RETURN 

C...  TEST  TO  SEE  IF  DM  1 N<DENS I TYCDMAX 

51  IF( J.E0.1TMAX  ) GO  TO  511 

IF( TFST(J) .GT.YMIN)  GO  TD  52 
511  I F ( I SEQ.EC. 1 ) GO  TO  56 

C...  DENSITY  IS  TOO  SMALL.  INCREASE,  OR  EINARY  SPLIT. 

I L E S 5 = 1 
VLESS=VSTART 

I F ( VMGRE .NE  .0  ) GO  TO  55 

VSTAPT=VSTART*DELTA 

RETURN 

C...  TEST  TO  SEE  ALTITUDE  IS  LOW  ENOUGH  FOR  GRADIENT  TO  MATTER. 

C...  IF  NOT  TEST  TO  SEE  IF  DENSITY  IS  TOO  BIG. 

52  IF(Z( JI.LE.GRAD)  GO  TD  53 

I F ( T E S T ( J J .LT  .YMAX ) GO  TO  58 
IF( ISEC.EQ.l)  GO  TO  57 

C...  DENSITY  IS  TOO  BIG  REDUCE  VSTART  OR  BINARY  SPLIT. 

IM0RF=1 
VmORF = vst ar  t 


in 


r l ng 

G6/2  7/ 

5 s u — 

IUVlESS.NF.nl  GU  TP  5 6 

5S1 

VSTART=VSTART-DtlTA 

352 

R F TURN 

3 5 3 C 

5E9 3 3 

I F ( J . E 0 . I T 9 A X ) GO  T J 531 

- 

355 

lUTESTUl-TFSTIJM)  .lt.oi 

GO  TO  58 

55o 531 

IF ( 1 5E0.E 0. 1 1 GO  TO  57 

357 

1 MORE =1 

3 5 o 

VY.CRE  = V S T ART 

3 5 5 

IFIVLESS.nE .0)  Go  TO  55 

560 

vstaruvstart-delta 

561 

Ft  TURN 

562  ---  C 

5 6 3 35 

I S E u = 1 

569 

VSTART  = ( VLE  S S ♦ VMPRE  ) =>.5 

5 6 5 

RE  TUR  N 

5 66  C 

367  56 

VLFSS=VSTART 

5 6iJ 

VSTARTUVM0RE+VSTARTU.5 

569 

RETURN 

3 70  C 

3 71 57 

VKORE = V S T ART 

3 72  

VSTARTMVLFSS  + VSTARTU.5 

573  

RE  TUP  N 

3 C . . . IF 

OFNSITY  IS  OKAY,  RETURN  G25=l 

TO  PROCEED  TO  NEXT  PCINT. 

3 75  58 

G 2 5 = 1 

3 76  

RETURN 

5?7 

END 

AT  I (jN  DATASET  I S 

ABOUT  TO  BE  WRITTEN 

o i v e n . r f Done 

AT lu\  DATASET  HAS 

NOW  BEEN  « R 1 T T F N 

+ - + - + - + - + 

EDITOR  TERMINATING 

57/1  00  SECONDS  IS  ELATED  T1 

C * A Y 1 

ILL  BE  CHARGED  AT 

BACKGROUND  RATE 

L I 1 T , T - 1 C S » P T = 1 0 

S»PR=50*pU=C » D D 8 0 = 0 

AS  SIGN*Plu2?2-2  ,9 

,1b 

TLlb,2,&N,MD,DS-600,RP,SP 

FUF  TR  AN , S =PL I B , SN 

- P S X 1 N 

T , S • PL  1 R , SN  = PSX  IN,D=  352  1 .ON'CRAYl 

o filf  generated  on  06/27/79  at  8.23 

atiun  dataset  is  about  to  ee  written 
ATIuN  Dataset  HAS  NOW  BEEN  WRITTEN 

c D I T OS.  TERMINATING  39/IOO  SECONDS  IS  c L A^  S F D T? 

FaBTBA.NfS-PLlfc»5N:GTS3S 
FOIT,S=?LIb.SN=GTS3S.D=3521,DN=CrAY1 

G FILE  GENERATED  ON  05/23/79  AT  11.98 
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I S T 1 N G 


E D 1 T ,l» 

1 

2 -■ 


,lL 


PLIB.0N=8SJAC 

- C ( R S JAC  > 

SUBRjUTINF  JMA Ik  a ( S ,RHS  ,N*C  . I Pk  .CT , JM AX ,N ,T I 
_ r PARABOLIC  DENSITY  EUL'ATIENS  VLR51LN 


c 

7 

a 

9 

U 


1 I 
12 


12 

1 s 

1 5 
] fc 
17 

1 c 

17 

21 

2 2 


23 

2 “< 

23 
2 1 
27 
2 3 
29 


_•*  L 

3 1 
3 2 


j-* 

3 3 
3 o 
3 7 


1 
A J 
a 1 


A A 

A 3 

h 6 
A 7 
S c 
a9 


F *Je#*jES.M  II  ) 


JKATRX  EVALUATES  DEL^/CELT  USING  STEPnANSCKS  KEThTC. 

ITS  ELEMENTS  ARE  GIVEN  BY: 

DELI  F I J(  I F , JF ) ) 

S(l.M)  - 

DELI  T I ( I V , J V ) ) 

WhFRE  N IS  THE  DENSITY  UF  ILN  IV  AT  ALTITUDE  JV.  l HD  F 
A<?E  COMPUTED  FROM  JF...IV.  THE  ARRAY  K H S CONTAINS  VALLES 
FIJ  SAVFD  FROM  PP.FVIUL'S  COMPUTATION 


C F 


51 

32 


- J 
^ A 


IMPLICIT  REAL  (A-h.N-Z) 

REAL  DT 

INTEGER  N ION,  NEC 

DIMENSION  KHS(1200),S<NEU.17I,N(2.3C0) 


T I ( 2 ,30C  ) , E (2  ) , V (2 ) 


C 


33 


rRITc ( fc  , 3 3 ) 
FORMAT (CENTER 
DATA  FRACT  , 
■ / l.E-A 

JMAT  = J K A X 
I F ( 1PR.EC.2  ) 
JM AT  1 - JMAT - 1 


J M A T R X * ) 
FRACD 
1 . E - 7 / 


JMAT* KIT 


- C 


190 

IPG 


DT  130  J/.  5-1  .NEC 
DC  190  K Z S * 1 ,7 
S ( JZS.K7S  ) *0  .0 
CCNT1NUF 
CONTINUE 


u 


BC  J F * 2 


JKATl 
Jl  *MAXO ( 2 , JF-1  ) 

J 2 = M 1 N C I JF+1  , J M A T 1 ) 
CF  9C  J V * J 1 . J2 
DC  130  I V*  1 , £ 


---  C 


L*2MJF-2) 

IF  ( JF .LF .3 )M  -2*  ( JV-2I+ I V 
1FIJF.GT.3)M=2*( jv-jfi+iv+a 
l\R  V = 2*  ( JV-2  ) ♦ I V 


H FOR  T I CALCULATIONS  

1 F ( 1 P R . F C . 2 > GC  TO  fed 
r,*  FRAf  T*  T 1 (IV-»1,JV)/(1  .C  + 0*DT  ) 

T I ( 1 V+l  , JV>  * T1 ( 1 V*1  , JV >*H 
CALL  TF1J(jF,1,IPR,N,T1,F.JB,JBS,V) 
Tl  ( I V+l  . JV)  = TI  ( I V + l ,JV ) -H 
GO  TC  70 


t>6 


CONTINUE 
IF ( JV .lE . J8  ) 
IF (JV.GT.Jb) 
IF  ( JV.LT  . JB  ) 
I F I JV .fc  c • JB  ) 


H=FRACC*N<IV,JV)/(l.C+0*uT) 
H*FRACD»N(IV,JV-»JBS-Je)/(1.C*0*DT) 
N ( I V, JV I =N ( I V , JV) 4H 
N!  K = N ( 1 , JPS  ) 


1=1 


! ST l MG 


9 5 

5 t 
c7 

r V 
60 
1 1 
62 
J 

6^ 

6 5 
6 c 
67 

6 B 
69 

7 0 
71 
7 2 
t 3 
7-, 
75 
7 e 
"77 
7 o 
79 
ft  0 
c 1 
fc2 
6 3 

“ H 

o 5 
* 6 

ft  7 

cfc 

39 


70 


C 


C 


IF  l JV  .EC,  .Jb  ) 
IF  ( JV  .07  . JB  ) 

IF  ( JF .IF . Jb  ) 
1 F ( JF .GT . Jb  ) 
IF l JV  .LE  .Jb) 
IF ( JV.EO. JB  ) 
IF  ( JV.EO.  JB  ) 
IF  ( JV  .GT  . JB  ) 
CONTI NUE 
FU 1 =F  ( 1) 

F U 2 = F (2  ) 

FL1 = RHS  ( L + l ) 
F L 2 - RH  S ( L +2  ) 

IF  ( JF .LE  .3  ) 
IF  ( JF .LE  .3  ) 
IF  ( JF .GT .3  ) 
IF  I JF .GT  .3  ) 


N I C =M2  , JSS  ) 

N(IV,JV+JbS-JB)=N(IV,Jv+JB5-JB)+r 

CALL  OF  1 J ( JF  . 1 , I PR  ,N  , T I ,F  , Jfc  , JcS  ,V  ) 

CALL  OF  I J ( JF  + JdS-je . 1 ,1 PK  ,N  , T 1 ,F  , JB  , JES  , V ) 
N ( 1 V , JV ) =N ( IV,  J V ) -H 
N ( 1 » J3S ) = N 1 K 
N ( 2 » JBS ) =N 1 C 

N ( IV  »JV+JE$-JB  ) = N(  IV,  JV+JBS-JB  ) -r. 


S(L-»1,M)  = (F'J1-FL1)/H 
S ( L +2  I = ( FU2-FL  2) /h 
S (L  + 1 ,M-1  ) = ( FU1-FL1 ) /H 
S ( L ♦ 2 * M-2  )=  <FU2-FL2)/H 


130  CONTI NUE 
90  CONTINUE 
30  CONTINUE 
R F TURN 
ENG 

- CsCS‘»,'.a, ?!*£$«  *3, ?!s=t$A*£, ?!*£**%*,?!■>£*  & S3, 7 
SUBROUTINE  BD5LV(N,M,S »KS»B«X»  WCR  K , NF  LAG  ) 

IMPLICIT  REAL ( A-h  ,0-Z ) 

DIMENSION  SIN.IJ  , KORKIN. 1) 

NFlAG=0 

I1=2vM+2 

12=11+1 

13=12+1 


fcCO  FORMAT ( ' BDSLV 
WRITE (6.600  ) 


) 


91  c 

92  CALL  6NDX(N ,M, S ,KS  ,P  ,X  , WORK  .WORM  1 , II)  , WORK  ( 1 , 12  ) ,WCRK  ( 1 , 

9 3 A.NFLAG) 

RETURN 

° 5 END 

9 o 

97 SUBROUTINE  b NO  X ( N , M , A , K S , E , X , S , SC  A L E , I N 0 E X , M L L , N F L AC  ) 

9 <5 IMPLICIT  REAL!  A-H.C-Z  ) 

99 DIMENSION  A( N,  1 ) , 6 ( 11 ,X (1)  , SCALE ( 1 ) ,1  NOE  X { 1 ) ,MUL t M , 1 ) 


1 ^0 

— 

a , s ( n , i ) 

1 01 

— 

DIMENSION  ME  SS (5  ) ,M  E S 2 ( 3) 

1 P2 

— 

RFAL  mul, index 

103 

— 

IF (M.Nc.O)  GO  TO  1 C 3 

1 09 

— 

DC  102  1=1, N 

105 

— 

IE(A(  1,1))  101,118,101 

1 Ofc 

— 

101 

X ( I ) =B(  I ) /A ( I , 1 ) 

1 C 7 

— 

102 

CONTINUE 

1 "b 

— 

RE  TURN 

1 0 9 

— 

103 

IF(KS.NE.O)  60  Ty  126 

116 


— ...  ■ * - 


u 


!*fUU, 


13) 


! f £ J fc  S a , 


L 1 ST  I NG 

1 1C 

_ _ _ 

1 P n = 2 «■  ¥ ■ ♦ 1 

1 1 1 

— 

If  ( M . (.  T . N-l  ) CL  10  113 

1 1 2 

— 

or  105  j * i , i e w 

1 1 3 

— 

DC.  109  1=1,  N 

l u 

— 

5 ( 1 , J) =A (I , j> 

1 1 3 

— 

10<* 

CONTINUE 

1 1 1 

— 

105 

CONTINUE 

1 1 7 

— 

C 

1 1 o 

— 

C 

1 IV 

— 

NP1 =N*1 

1 20 

— 

M P 1 = M*1 

121 

— 

00  108  I =1 , V 

122 

— 

KD1PI=MP1+1 

123 

— 

IF(PPIPI-IBN)  106,106,109 

1 29 

— 

106 

NP 1M 1 = NP 1-  1 

123 

— 

DO  107  J -MF 1 PI  ,1 fcW 

126 

— 

S( l,J)=C. 

1 ; 7 

— 

SCNP1MI , J)=0. 

1 2 o 

— 

1 C 7 

CONTINUE 

1 29. 

— 

108 

CONTINUE 

1 3u 

— 

105 

DO  115  1 =1  ,N 

121 

— 

b 1 U = 0 . 

1 32 

— 

DO  111  J = 1 , 1 e W 

1 3 j 

— 

If  ( B1G-ABS1  SII.JHI  110,111,111 

1 29 

— 

HO 

bl ( M 1 , J) ) 

1 ? 5 

— 

111 

CONTINUE 

1 °o 

— 

If  (B 1G  ) 1 19 , 11  2, 1 19 

137 

— 

112 

»R 1 TE (6 ,919  ) l 

1 36 

— 

919 

FORMA  T ( • IN  BDSLV,  ROW', 13,'  15 

ZERO  IN  INPUT  MATRIX') 

129 

— 

NF  LAG  = 2 

l^C 

— 

RE  TURN 

191 

— 

113 

WR1TE(6,916) 

1 92 

— 

918 

FORMAT  ( ' IN  BDSlV  LLfCCLL  BANDWIDTH  15  TOO  LARGE') 

193 

— 

NF  LAG  = 3 

1 

— 

RETURN 

19  3 

— 

119 

SCALE  f I ) = 1 . / £ I G 

1 <*6 

— 

115 

CONTINUE 

197 

— 

LO*  = M 

1 9 0 

— 

NM1 =N-1 

199 

— 

DC  125  K = 1 , NMl 

150 

— 

L 0 *t  =M  I NO  ( L D W ♦ 1 , N ) 

151 

— 

3IG=0. 

152 

— 

DO  117  I = K , L OW 

153 

— 

SIZE  = ABS(S( 1,1)) 'SCALE « 1 ) 

1 c ■*. 

— 

lF(SlZE-blG)  117,117,116 

1-5 

116 

B 1 G = S 1 Z E 

156 

— 

1 P I V = 1 

157 

— 

117 

CONTINUE 

156 

— 

IF  (BIG)  119,1]6,115 

1 5 i 

— 

116 

WRITE (6,917) 

1 6C 

— 

517 

FORMAT ( ' IN  BDSLV  ILL  Lilli  ZERC 

PIVOT  FLEMENT') 

161 

— 

NFLAG=1 

1 62 

— 

RF TURN 

163 

— 

115 

INDEX (K ) = I P I V 

169 

— 

IF(IPIV-K)  120.122,120 

1 1 ; 


L 1 3T  1 ' G 


El 


f 

■ 


1 ^fa 

— 

12C 

SC  A 15  ( 1 P 1 V ) = of  «L  t ( K ) 

: *■  6 

— 

or  121  J=i,ifch 

1 fa  7 

— 

Tf  *P=SIK  , J) 

1 *>0 

— 

S(K,J>=S(1PIV,J) 

169 

— 

S(1P1V.J)=TFHP 

1 70 

— 

12  1 

CCNT 1KUE 

1 7 1 

— 

122 

P I V 0 T = S ( K , 1 ) 

1 70 

— 

K ( U N T - C 

1 /fa 

— 

K.  >'  1 --  K ♦ 1 

17-4 

— 

0!  129  I ^KPl  ,t  UW 

1 7: 

— 

kt um  = kcunt +1 

1 7 fc 

— 

FACT-- S(  l.U/PlVuT 

1 77 

— 

MU  L UPON  T ,K ) =F At  I 

1 73 

— 

or  12?  J = 2 » ! 5M 

179 

— 

S(  1 ,J-1  ) =S(  I ,J)  + FACToS(K.  ,J) 

1 r 0 

— 

123 

cr  ntinue 

1 ?1 

— 

SI  I . 1 P 1* ) =0  . 

1 o c 

— 

129 

C r NT  I NUE 

1 3 3 

— 

126 

CLM1NUE 

1 K h 

— 

1E(S(N,1)»  126,118,126 

1 5 

— 

126 

DP  127  1=1  , M 

1 7 fa 

— 

X I l ) = E I ! > 

1 7 

— 

1 2 7 

cc  r,  r i .vue 

1 ■ 0 

— 

or  * m, 

i : 9 

— 

U 1 faC  K = 1 , N M 1 

i 7C 

— 

I P 1 V - 1 N 0 E X ( K ) 

1 -J1 

— 

iF(lPlV.EQ.K)  GO  Tl  126 

1 9 2 

— 

TcMp=X(K) 

1 - 3 

— 

X(K 1 = X t 1 P I V 1 

1 H 

— 

X ( I PI  V ) =TfMP 

1 “fa 

— 

126 

K P o N T - C 

1 7 C 

— 

K P 1 = K + 1 

197 

— 

Lr*.=MlN0  I LLW+1  ,r, ) 

1 -’6 

— 

DC  12°  I =KP1  ,1  0k, 

199 

— 

!XPUNT=KrUNT  + l 

2r„ 

— 

XI  i ) = X C I )+n|UL(K0UNT.K>*X(K) 

2 C 1 

— 

129 

or  NT i NUE 

2 T 2 

— 

130 

cr  n r i fiuE 

2 0 2 

— 

X(N)=X(H)/3(N,1) 

2 7 9 

— 

or * = 1 

2 r'b 

— 

or  13?  r F A C K =1  ,\M1 

2 0 fc 

— 

I-„-lPACK 

2 0 7 

— 

S U K = 0 . 

2 7 o 

— 

or  «--M  I f,0(  LUV,  +1  , I 0 W ) 

2 09 

— 

Of  1 3 1 JBACK=?,LCW 

21  w 

— 

J=  1+JP  ftCK-1 

2 1 1 

— 

SUM  = SUM ♦ S (I  , JE  AC  K J*X{J) 

2 1 < 

— 

131 

Cr  MINuE 

2 1 3 

— 

X 11)  = ( X I I ) -SUM  ) / S ( I , 1) 

2 1 9 

— 

132 

CUM  I\UF 

2 1 6 

to  i uk r; 

2 1 c 

— 

•:  ru 

jUSrT  JS  A*IUT  H B L .^lTlf,< 


1 S T I \ 0 


*EDl  T,U=HLll-  ,DN=GTS3S.LL 

1 ---  SUBROUTINE  GTS jS < I VC.SEC  , AlT ,GlAT .CLUNG ,S7L ,F 1C7A .F 1 C7.AF .MASS ,D,  I 

2  > T ) 


3 

9 

5 

t 

7 

o 

V 

1C 
1 1 
12 
13 
1 A 
1 5 
1 t 
1 7 

1 e 

19 

20 

2 1 
22 
23 
2 9 
25 

2 b 
27 
2d 
29 

3 0 

22 

2 J 
?9 

35 
? 6 

3 7 
3 6 
3-  5 
<•0 
a1 
a 2 
" 3 
49 
<45 
9 c 

a7 
A d 
<49 
c D 
M 

t.  ) 

4. 

S J 

‘ 9 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

l 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


A.E.HEDIN  1 / ^ ✓ 7 c I UPDATED  3/b/lb;  (FI;  7/21/76  UH  ( 

MSIS  NEUTRAL  THcRMUSPhEkE  MODEL  L 

NO  LONGITUDINAL  VARIATIONS  C 

INPUT:  C 

I YD  - YEAR  AND  DAY  AS  YYDDD  l 

SEC  - UT ( SE  C ) C 

Alt  - ALTITuDt  (KM)  (GREATER  THAN  1 2G  KM  C 

GlAT  - GEODETIC  LAT I TUCE (Of C ) C 

C>  L fJ  N C - GEODETIC  LONG  IT  UDE  ( DEG  I C 

STL  - LOCAL  APPARENT  SOLAR  TlME(hkS)  C 

F1C7A  - 3 MONTH  AVERAGE  OF  FIG. 7 FLUX  C 

F 1 0 7 - DAILY  F1C.7  Flux  FOR  PREVIOUS  CAY  C 

AP  - MAGNETIC  INDEX (EAILY)  C 

MASS  - MASS  NUMoER  (ENLY  DENSITY  FCH  SELECTED  GAS  IS 


CALCULATED  UNLESS  MASS  = As.  MASS  C 15  1 E M P E » A T L R E . ) L 
OUTPUT:  C 

D ( 1 ) / SH ( 1 ) - HE  NUMcFR  DE NS1 T Y ( CM-3 ) /SC  ALE  h'IChT(KM) 


D ( 2 ) - 0 NUMBER  DENS  1 T Y ( CM -3 ) C 

D I 3 ) / SH  ( 3 ) - N?  NUMBER  D E N S 1 T Y ( C M - 3 I / S C AL  E FEKhTIkM) 

0(9)  - 02  NUMBER  DENS  I T V ICK-3)  C 

D ( 5 ) / SH  ( 5 1 - A R NuMBEk  DEN  S 1 T Y ( C M - 3 ) / S C A L E hElCTMKM 
0 ( fc  ) - TOTAL  MASS  DE  NS  I TYK-M/CM3  > C 

D ( 7 I / SH  ( 7 ) - h NUMBER  OE  N’S  1 I Y ( CM  - 3 J / 5 C A L E HEIGHI(RM) 

T ( 1 ) - EXOSPHERIC  TEMPERATURE  G 

T ( 2 ) - TEMPERATURE  AT  ALT  C 


DIMENSION  SH ( 7 1 

COMMLM/GTS  3C/TL  p , S .DBA .UBlfc  .DE28.C5  32  ,DRAC  , DBAe  ,DP 1 C 

DIMENSION  D( 7) ,T ( 2) ,MT ( 8) ,0L( 9)  C 

DIMENSION  PT 1 ( 50) ,PT2 ( 5f) ,PA1 (50 ,?A2 I 5C ) .FBI ( 50) .PE2 (5C ) , C 

* PCI  ( 50  ) ,PC2  (50  ),  PC  1 ( 50  ) ,PD2(  50)  , PE  1 ( 50  ), PE  2 ( 50  C 

TEMpcRATURE  C 


DATA  p T 1 / 


4 

1.CA13CE  03, 

2 .59903E-D3, 

3 .33263E-C2 

-I.228fcCc-tl, 

4 

-3 .79330E-03. 

-1 .0?3SAt-01 , 

2 .09679  E-C3 

5 .A2156E-C3  , 

4 

-2 .521  87E-C2 , 

1 . 1 7557E-02 , 

-b .395SA  E-C3 

-1  . 1 A 2 S 6 E Cl  , 

4 

6 .27580E-03, 

7 .29G32E-D3, 

9 . 902 A 1 E Cl 

1 .12A75E-C2  . 

* 

-5 .379AbE-06, 

3 . 1 97A9E-03  , 

0.0 

3 .97 7 ACE -C 3 , 

4 

0 .C 

o 

• 

o 

0.0 

c .C 

4 

0.0 

-2.69559E  01, 

5 .92929 E-C3 

1 .33efcfcE-C2  , 

4 

1.12319E-02, 

-fc  . 7A  97fc  p-02  » 

-1 .ollC5E-C2 

2 . 2 1 2 fc 1 E Cl, 

4 

2 .67322E-0A, 

0.0  . 

0.0 

5 . 5 7 1 fc  5 E - C 1 , 

4 

9 .05fc30E-03, 

0.0 

5 .620AA  E-02 

C .0 

DATA  PT  2 / 

4 

1 . 73G6AP-0 1 « 

-3 .731 0<  E-02, 

2.570A9E-C2 

-1 .AS97CE-C2  . 

4 

A .77 1 1 IE-02. 

3. 7AA08E-02, 

-1 .001A5E-C2 

F .lfc8A2c-C?  , 

4 

0.0 

0 .0  , 

1.056A2E  CO 

C .C 

4 

C .0 

1 .fcc9AlE-9l3» 

-5 .213Ah  E-C9 

1 .719  12E-C?  , 

4 

1.32705F-03, 

5 .6C393E-03. 

2 .9A9AA  E-C2 

- 2 . 3 7 A fc  2 E - C : . 

4 

2.A9253F-Q1, 

U .0 

0.0 

C .0 

4 

n '> 

0 .0 

0 .0 

c .C 

4 

0 .c 

0.0  , 

0.0 

C .0  . 

4 

G .0 

0.0  r 

0.0 

c .C 

9 

A.2fcC7tE-C3*C 


-1 .2S6WE-C1  ,C 
9 . C * C 

1 . 1 9 1 2 ( E - C 3 , 
l.GCCCCE  CC, 

I .CCCCC  E CC  ,C 
l.CCCCCE  CC.C 
c .5e52CE -CA  ,C 
1 .83722E-C1  «C 
5.5EU3E-C3/C 
C 


2 .2 1 cA  1E-C2  tC 
5.5I251E-C3.C 
C .C  ,C 

A.5A3t:f-C9,C 
5.7ACfctc-C2,C 

C .9  ,C 

C .c  ,c 

C . 9 » C 

c .c  ,c 


119 


O O 


•*  -V 


. I S T IN  G 

C 

c 

^ t 

55 

_____ 

o 

0 .0 

0.0  . 

0.0 

C.C 

t 

C .c 

n 

5 b 

— 

C 

HF  Dc  NS1  Tv 

< 

5 1 

— 

DATA  p A 1 / 

( 

5 a 

— 

o 

1 .G0000E  CO. 

-1  .1 3108E-01  , 

-1  . 99552E-C1  , 

- 2 .625*36-01 

-2.72919E-C2 

.( 

5 v 

— 

$ 

2 .709986-02. 

9 .5&992E-01  , 

6.1U27F-C3, 

-3 .F2657t-C2 

1 . 6 6 72  EE  CC 

‘0 

— 

3 

2 .531 10E-01, 

1 .92720Q-01  . 

1 .313e7E-Cl  . 

-7 .336936  CC 

c .c 

6 i 

— 

c 

3.52992E-01, 

-8 .P9136E-J2, 

1 .06  1 62  6 Cz  . 

-1 .199E6E-C1 

-6 .5266 ; E-C9 

,c 

b 2 

— 

* 

O.C 

0.0 

0.0 

C .C 

l.CCCCCE  CC 

,c 

6 3 

— 

0 

0.0  . 

-1  .C5623E-01  , 

-3. 197^36 -C2  , 

- 3 . 9 i,  9 6 1 c - C 2 

C .C 

,c 

6 9 

— 

* 

C .0 

- 1 . 80  53  9 E C 2 , 

-9.56827E-C3, 

C .0 

l.CCCCCF  CO 

6 5 

— 

0 

b ,28196F-0t , 

-2 .773326-02, 

9 .66159E-02  . 

-3.95226E  Cl 

C .C 

t A 

6b 

— 

$ 

O.C 

0 .C  , 

0 .0 

3.965e3E-Cl 

1 . 5 3 7 c 2 E - C 1 

.( 

6 7 

— 

z 

-t .9159*6-02  . 

O.C  . 

1 . J7335E-C5  , 

C .C 

6.9CLC7E-C3/C 

6 a 

— 

DATA  P A 2 / 

fc* 

— 

# 

-3.978C9E-01, 

-9 . 199256  -01  , 

5 . 1C8C1 E-C2  . 

c ,c 

c .c 

,C 

70 

— 

0 

l.OOOOOE  00. 

C .0 

0.0  , 

C .0 

C.C 

.( 

71 

— 

0 

-3.2Etb3E-Cl, 

3 .2696CE-01  , 

1.25265E  CO, 

1 .9*5C7E"C2 

-l.*2531E-C2 

,c 

It 

— 

<• 

-1.55799E-03, 

9 .66277E-03  , 

1 .12219E-Cz  , 

-3 .1E12°E-C2 

-3.C273CE-C2 

, c 

lo 

— 

$ 

-5. 7591 CE -03. 

-1 .87333E-02, 

-1 . 725  77  c - C 2 » 

3 . 5 6 C 2 £ E - 0 3 

6 . 6 1 5 6 C E - C 2 

,c 

— 

$ 

7.99005E-C2, 

0.0  , 

0.0 

C .0 

C.C 

7 5 

— 

$ 

0 .0 

0.0 

0.0 

C .0 

C.C 

,c 

76 

— 

<s 

0 .0 

0 .0  , 

0.0 

C .C 

c .c 

« c 

77 

— 

0.0 

0.0  , 

0 .0 

C.C 

c .c 

,c 

78 

— 

0 

C .0 

0 .0  , 

0 .0 

C .C 

C . 6 

/c 

79 

— 

c 

0 DENSITY 

c 

50 

— 

CATA  Pal/ 

c 

El 

— 

l.OOOOOE  00. 

-1  .097056-01  , 

-1  .25208  E-Cl  . 

-5 .39C52E-C2 

-2.55356E-C2 

,c 

F2 

— 

<* 

-1  .0?b75E-02. 

1 .51211E-01  , 

-2 . 733  Co  E-C2  , 

- 1 . 6S269E-C2 

9.2139CE-C1 

,c 

a 3 

— 

C .0 

2 .2185CE-02, 

2 .91  896  F-C2  , 

-1.6C931E  Cl 

C.C 

,c 

•> 

— 

$ 

1 .37033E-01 . 

0.0 

1 .09296  6 C2  , 

6.97355E-C2 

5.5  6 77  EE -C9 

,c 

35 

— 

* 

C *0 

2 . 2 6063  E -0  3, 

0 .0  , 

C .C 

l.CCCCCE  CO 

,c 

> 6 

— 

$ 

C .0  . 

-3 .8A235E-02. 

0.0  , 

C ,C 

l.CCCCCE  CO 

r 

* . 

8 7 

— 

* 

0.0 

-5.33659E  01, 

-9.39153E-C9  , 

C.C 

1 .CCCCC  E CC 

r 

t v. 

fa 

— 

<» 

O.C 

0 .0  , 

-7 .53599  E-C2  , 

-3.58978E  Cl 

C.c 

,c 

fc  9 

— 

C .0 

0.0  , 

0 .0 

6 .69C91E-C1 

2 . 7 5 6 1 C E - C 1 

r 

t u 

90 

— 

*» 

-3 .27599E-02, 

C .0  , 

1 .09232E-C3, 

c ,c 

2.16C12E-C3/C 

91 

— 

OATA  Pa  2 / 

c 

9* 

— 

$ 

-1.13167E  CC. 

-1  . 1 dC27E  00  , 

2 . 0C5  59  E-C2  , 

C .C 

C.C 

,c 

9 J 

— 

0.0 

0.0  , 

0.0 

-9 .699C5E-C1 

-9.575C7E-C1 

,c 

94 

— 

C 

-5  .99d77E-01 . 

-2 . 12652E-02, 

9 .971 13  E-01  , 

8 .19C/7E-C 1 

- 7 . 7 7 6 C C E - C 3 

,c 

°i 

— 

<• 

2 .03b39E-C2, 

3 .C235PE-03, 

1 .90996  F-C3  , 

2 .62931  E -C  2 

2 .£762 1 E-C3 

,c 

9 b 

— 

$ 

-7 .275356-03, 

-1  .3a62bE-02, 

-1 .3C575E-C2  , 

6 .3C837E-C3 

-9.56661E-C2 

,c 

97 

— 

0 

9 .20939E-01  . 

0 .0 

0.0 

C .0 

C .C 

,c 

9a 

— 

$ 

O.C  . 

0.0  , 

0 .0 

C.C 

C .C 

»c 

oq 

— 

$ 

C .0 

0 .0 

0.0 

C .0 

C.C 

,c 

1 u 

— 

o 

C .0 

0 .0 

0.0 

C .0 

C .0 

t - 

1 C 1 

— 

$ 

0 .0 

0.0  , 

0.0  , 

C.C 

C .c 

/c 

102 

— 

c 

02  DENSI TY 

c 

102 

— 

CATA  PCI/ 

c 

1 nq 

— 

* 

l.OOOOOE  00. 

0.0  , 

0.0 

-1 .92895E-C1 

c .c 

,c 

1 r 5 

— 

0 

2 .89329E-02. 

2 .365b9E-01  , 

0 .0 

-3 .CSC65E-C9 

2 . 3 1 C E 2 E * C 1 

,c 

1 Ob 

— 

$ 

C .0 

O.C  , 

0.0 

-9 .91799E-C1 

C .C 

,c 

1 0 7 

— 

$ 

-2 .1  7693E-01  , 

0 .0  , 

9 .361 1 S E Cl  , 

-1 .7C999E-C1 

C .C 

,c 

1 Oo 

— 

0 

C .0 

C .0  , 

0 .0 

-1 .735C1 E-02 

C.C 

,c 

109 

— 

$ 

0.0 

0.0  , 

0. 0 , 

C .C 

c .c 

,c 

120 


I !>T  t 1,0 


1 10 



o 

C .0 

-2.2C9B1E  01 

• 

-5  .920P5F-C3 

9 

-3.37127F-C2 

9 

5 . ? 5 *.  6 *.  E - C 1 

.c 

1 1 1 

— 

a 

0 .c  » 

0 .0 

9 

-1  .75075  E-Cl 

9 

2 .CtS*. 

2 E Cl 

* 

c .c 

,L 

1 i c 

— 

a 

0 .0 

0.0 

9 

U .u 

9 

2.5CGCCE-C1 

9 

l.CCCCCE  CC 

,C 

1 1 J 

— 

0 

c.o 

C.O 

9 

0.0 

9 

C .C 

9 

C .C 

/c 

1 1 <i 

— 

DATA  PC  2 / 

fw 

1 1 5 

— 

0 

C . 0 • 

0 .0 

9 

0 .0 

9 

C .0 

9 

C .0 

,c 

11c 

— 

0 

0.0 

0 .0 

9 

0.0 

9 

C .C 

9 

C .c 

,C 

1 1 7 

— 

0 

0 . c * 

0.0 

9 

0.0 

9 

C .C 

9 

C .c 

,C 

1 1 b 

— 

a 

0.0 

0 .0 

9 

0.0 

9 

C .C 

9 

c .c 

,c 

1 1 9 

— 

0 

0.0 

0 .0 

9 

0.3 

• 

C .0 

9 

C.C 

,c 

1 20 

— 

if 

c.o 

0 .0 

9 

0 .0 

9 

C .0 

* 

c .c 

,c 

1 ’1 

— 

a 

0.0 

C.o 

9 

0 .0 

* 

C .c 

9 

c .c 

,c 

12c 

— 

if 

C .0 

0 .0 

9 

0.0 

9 

C .G 

9 

C .C 

,c 

1 

— 

tf 

c.o 

0 .0 

9 

0.0 

9 

C.O 

9 

C .C 

r 

9 C 

1 

— 

a 

0.0  « 

0.0 

9 

0.0 

9 

C .0 

9 

C.C 

/C 

12b 

— 

C 

AR  DENSITY 

c 

1 26 

— 

DATA  t>01/ 

c 

127 

— 

a 

1 .GCOCOE  00. 

0 . 0 

9 

3 .0 

9 

-t .A2CC2E-C2 

9 

c .c 

r> 

9 - 

1 2o 

— 

if 

-1 .72C16E-02, 

-5 .C8900E-02 

9 

C.O 

9 

-t .A£  55 

hE  - C 2 

9 

-2 .2A2ASE-C  1 

r 

9 w 

129 

— 

a 

0 .0 

1 . 1C82CE-01 

9 

-9 .22823  E -CP 

9 

8.AC25CE  CC 

9 

C.C 

9 C 

1 



a 

-3 .2 1 U76E-02  . 

1 .66617E-01 

9 

5.63C81E  Cl 

9 

-6 .4152 

1E-C2 

9 

-s.eeAAi-E-cs 

,c 

1 ?1 

— 

a 

0.0 

0.0 

9 

0 .0 

9 

C .C 

9 

c .c 

r 

9 C 

1 3 2 

— 

a 

0 .0 

0 .0 

9 

0.0 

9 

c .c 

9 

c .c 

,c 

1 3 3 

— 

fc 

C .0 

fc . 1 72U3E  01 

9 

3 .73991 E-C3 

9 

c.o 

9 

l.CCCCCE  CC 

,c 

1 3-3 

— 

0 

0.6  . 

C .0 

9 

-1 .79916E-C1 

9 

-1  .CS27 

7 E Cl 

9 

C.C 

,c 

1 ’b 

— 

a 

3.0  . 

0 .0 

9 

0.0 

9 

2 .SCO C0E-01 

9 

l.CCCCCE  CC 

,c 

1 2 0 

— 

a 

1 . 1 6579E -02. 

0.0 

9 

0 .0 

9 

C .0 

9 

c .c 

/c 

1 3 7 

— 

DATA  POP/ 

c 

1 3 8 

— 

a 

C .0 

0 .0 

9 

0.0 

9 

C .C 

9 

C .C 

,c 

123 

— 

a 

l.OOCOOE  00. 

c .c 

9 

0.0 

9 

C ,C 

9 

C .3 

,c 

1 «*C 



a 

1.87356F  00. 

1 .08931 E CO 

9 

1 .1316 7E  CC 

9 

C.O 

9 

C.C 

.c 

1 91 

— 

a 

C.O 

0 .c 

9 

0 .0 

9 

c .c 

9 

c .c 

fC 

1 92 

— 

a 

0 .0 

0.0 

9 

0.0 

9 

C .0 

9 

C .C 

• c 

1*0 

— 

if 

C .0 

C.O 

9 

0.0 

9 

C .0 

9 

c ,c 

rC 

1 *-*. 

— 

if 

0 .0 

0 .0 

9 

0 .0 

9 

c .c 

9 

C .c 

,c 

1 9 5 

— 

a 

C.O  . 

C .0 

9 

0 .0 

9 

C .0 

9 

C.C 

fC 

1 H 

O 

c.o 

0 .0 

9 

0 .0 

9 

c .c 

9 

C.C 

fC 

197 

— 

a 

0 . \j  . 

r.c 

9 

0 .0 

9 

c .c 

9 

c .c 

/c 

1 9£ 

— 

C 

H DENSITY 

1 9 9 

— 

LATA  PEW 

1 be 

— 

a 

l.DOOOuF  00. 

-1 . 23659 E -01 

0.0 

2 .C5AA6E-C1 

2 .c2S5«E-C2 

151 

— 

a 

0 .0 

3.83010E-01 

2 .991 25  E-C2 

C .C 

2.21C66E-C1 

1 -t 

— 

a 

1 .0A532F-0  1 . 

-2 .97971 E-02 

9.35fclfcE-C2 

- 1 .477A 

£E  Cl 

c .c 

1 r3 

— 

a 

0.0 

0 .0 

9 .32596  E Cl 

5 .6762 

7E-C2 

-1  .246CEE-C2 

1 C<* 

— 

a 

C .0 

-1 .93000E-0? 

0.0 

c .c 

C .C 

1=3 

— 

a 

0.0 

0 .0 

0 .0 

C .0 

C .C 

1=6 

— 

a 

0 .0 

9.22  737E  01 

-5 .1 8591 E-C3 

C.O 

1 .C 

1 57 

— 

- 

d .571  38r-CZ  . 

-3 .9 7999 E -03 

-9 .065C7E-C2 

-7 . 2C  C 2 

6 E Cl 

C .C 

1 5 k 

— 

a 

C.O 

0 .0 

0 .0 

2 .5CCC0E-C1 

l.CCCCCE  CO 

IS 

— 

a 

0 .0 

0 .0 

0 .0 

C .C 

C .C 

/c 

160 

— 

DATA  PE  2 / 

c 

1 fcl 

— 

a 

C.O 

0.0 

0 .0 

c .c 

C ,C 

,c 

1 

— 

a 

0 .0 

0 .0 

0.0 

c .c 

C .C 

,c 

1 f i 

— 

a 

C.O 

0 .0 

0 .0 

C .0 

c .c 

,c 

1 f 

— 

a 

0 . 0 • 

0 .0 

0 .0 

C .C 

c .c 

,c 

121 


t 


1 Ml  NO 


05/ 


1 ad 

— 

0 

0 .0 

• 

0 .0 

9 

1 1 1 

— 

$ 

c .c 

t 

0 .0 

9 

167 

— 

0 

C .0 

f 

C .0 

9 

1 M 

— 

$ 

J .0 

9 

0.0 

9 

169 

— 

0 

c.c 

t 

0 .0 

9 

1 70 
171 

1 72 

C 

a 

0.0 

LOWER 
DATA  DL/ 

, 0.0 

BOUND AR  Y 

9 

1 72 

— 

£ 

1 .2P000E 

02  , 

3 .86  OOCE 

02, 

1 7s 

— 

<» 

2 . 6 1 00  OE 

1 1 . 

3 . 3CCUOE 

10, 

1 7 5 

— 

U A I A K T / 9 8 

,0  ,a 

,1 t ,29,32 

.90, 

0.0 

C .0 

9 

C.C 

.1 

0.0 

C .C 

9 

C.C 

,c 

0.0 

C .0 

9 

c.c 

,c 

0.0 

C.C 

9 

c .c 

,c 

0.0 

c.c 

9 

c.c 

,c- 

0.0 

c .c 

9 

c .c 

/t 

c 

c 

2.3AdCCE-Cc  , 

2 .A56CCE 

C 7 , 

? .5SACCE 

10  ,c 

1 .33000  E 09  , 

1 . 7 1 1 C 0 £ 

CE/ 

c 

c 


no 

1 77 
173 
1 79 
1 HO 

l 21 

1 5 2 
1 53 
1 P5 

1?5 
1 8c 
1 5 7 
1 dS 
1 3 9 
190 
1 al 
1 C2 
1 93 
199 
193 
1 ~c 
157 
1 c,  o 

1 99 

2 00 
201 
2 C 2 
2 C 3 
2 ^>5 
2 ^ 5 
2 16 
2 07 
2 0 o 
209 
2 1 C 
2 1 1 
2 12 
2 1 3 
215 
2 1 5 
2 1 6 
^ 1 7 
2 Id 
2 1 9 


YR  0 = I Y 0 

T ( 1 ) = GLCibE  ( YRD  ,SEC  ,GL  AT  .GLGNG.SU  .F107A.F1C7  ,AP,PTl  ( 1 ) ,PT2  (1  ) ) C 


T L b =G  l.  b ( SR  » G 28  ) * D L (2)  C 

S = SR*DL ( 3 ) C 

DC  10  J = 1.8  C 

IF ( MA S5.EC.MTl J)  ) GO  TO  15  C 

10  CONTINUE  C 

WRITE (6,100)  MASS 
GO  TO  90 


Ip  GC  Tu  (2C. 50. 20. 25, 20, 35.^0*95)  • J 
20  GC  =OCR( ALT, PA1  (1  ) , T (1  ) ) 

GA  = Glc6( PA1I  1 ) , P A 2 ( 1 ) ) 

0 P.  5 = 01(9)  *EXP(G5-1.) 

0(1)  = DENSS (ALT  ,DBa,T ( 1 > ,TL6,  A.,  - .5,T (2)  , CL ( 1 ) , 5 « Sm ( 1 ) ) 

IF  (MASS.NE  .50 ) GL  TO  9 0 
25  GG  = DC  R ( ALT , Pbl  (1  ) . T (1 ) > 

Glfc  = GL  LB ( ° b 1 (1  ) ,P62< 1 » ) 

OF  1 5 = 0 L ( 5 )*EXP(G16-1  .) 

0(2)  ^ CEN5S ( A LT ,0016, T ( 1 ) , TLE  , 1 1 . ,0  . , T ( 2 ) , C L ( 1 ) , S . SH  (2)  ) 

IF (MASS.NE . A 8 ) GL  TO  50 

30  OP  2 6 = Dl ( fc ) XP (G23-1 . ) 

0(3)  = DENSS (AlT ,D5?8, T < 1 ), TLB,  2 P . ,0 . , T ( 2 ) , C L ( 1 ) , S , 5 H ( 3 ) ) 

I F (MASS .NE . Ad)  GL  TO  R0 
35  032  = GLUB(PC)  ( 1 ) ,PC2(  1 ) ) 

OR  3 2 = 0 L ( 7 )<EXP ( G 3 2- 1 . ) 

0(A)  = DENSS ( ALT ,OB32 , T ( i ) ,TLB , 2 2 . , 0 . , T ( 2 ) , C L ( 1 ) , 5 , 5 H ( A ) ) 

IF ( MASS. NE .56 ) GL  TP  90 
AO  GAC  = GLLiB  ( P01  ( 1 ) ,PD2(1)  ) 

OP  90  = OL(fc)*EXP (G5C-1  .) 

0(5)  = DENSS (Alt , OSAO, T ( 1 ) ,TlB,  AC.  ,0 ., T (2 ) ,DL( 1 ) , S,Sh (5 ) ) 

IF (MASS.NF . A 6 ) GC  TO  9Q 
A3  01  - GLOB (PE  1 ( 1 ) ,Pc2(l  ) ) 

OBI  = DL(9)*EXP(G1-1.) 

0(7)=DcNSS(ALT,DBl,T(l).TLB.l.,-.A,T(2),CL(l),S,SM7)) 

IF («A!5 .NE .90)  GO  TC  90 

0(b)  = 1 .66E-2  5*(9.'0(  1)  + 16.'>D(2)*26.*O(3)-*32.*0(A)-*aC.»C(5)iD(7)  ) 

D358  = 1.6bF-2  9»(A*DbA4  16.*DBlb-f2B.*DB2t*32.*Db32  + B0.«Le9C  + C2}) 

GO  TO  90 

50  Dll)  = 0ENS5 (ALT  , 1 . , T ( 1 » , T L B , 0 . , C . ,T ( 2 ) , C L ( 1 ) , S , SM ( 1 ) ) 

90  RE  r URN 

100  FORMAT ( 1 X, AMASS*  , 15,  * NUT  VALID#) 

E NO 

FUNCTION  GL0BE(YKD,SfcC,lAT,L0NG,TLLC,F107A,FiC7,AP,P,C) 

C FILE  GLObA 


122 


ooooo  <->  c>  1 1 ooo  noo  ooo  n r->  n o n o o r>  o o o 


I b T I \ o 


2 2U 
221 
c >2 
2?  3 
22  A 
22  b 
22  c 
221 
22  a 

22i 
2 30 
• 2 31 

2 ? 2 
2 33 
23h 
233 

236 

237 
2 3 o 
2 3 9 
2 AQ 
2 A 1 

2w 
2 A 3 
2UL> 
2 A 5 
2 a 6 
2 A7 
2 a 0 
2 Ay 
2 50 
2 r 1 
2 52 
2 53 
2 'A 
2 55 

256 

257 
2 5 o 
255 
2 60 
2 61 
2 6 1 
ebb 


t MR  Y CLUB  ( P ,0  ) 

R F A L LAT,  L DNC 

D I MENS  I CN  P I 1 > ,PLG  (9,  A > ,PLM  l 0 ,A  ) ,C  ( 1 ) ,SM  1 3)  , AP (11 

DIMENSION  DC  (10) 

L'lMFNSlPN  S V ( 1 5 ) 

DIMENSION  PL(50),KPL(50),KPP(50) 

COMMON/  T TE  ST/T  ( 1 5 ) 

DATA  DOTR/1 . 7A63  3E -2/. DP /I . 72 1 A2E -2 / , X L / 1 CCC . / . TL l / 1 CCC  . / 

DATA  IDC/0/.DAYL/-1  ./ 

DATA  HR/.2bl6/,  S R / 7 . 2 7 22 E - 5/ , S W/  1 5 < 1 . / , N 5 W / 1 2 / , 5 E C L / 1 C C . / 

T ( 10)  = 0. 

Till)  = 0. 

T ( 12  > = C. 

lF(lDC.GE.l)  CO  TC  10 
DO  5 1 = 1 , 1 C 
5 DC ( I ) = 1 • 

1 C C = 2 

10  CONTINUE 

1YR  = YRO/IOOC. 

DAY  = YRD  - IYRMOCO. 

IF (SWl 10)  .EO  .-1  . ) GO  Tu  AO 
IF(Xl.cC.LAT)  GC  to  15 
C = SIN ( LAT*Dc TR  ) 

S = C C S ( LAT*DGTR  ) 

C 2 = C*C 
CA  r C2*C2 
S2  = S*S 
PL G ( 2 » 1 ) = C 

P L G ( 3 • 1 ) = 0 . 6 * ( 3 . * C 2 -1  . ) 

PLG ( A , 1 ) = 0 .5*( 5 .*C*C2-3  .*C) 

PLGI5.1)  = (35. -CA  - 30.*f2  ♦ 3.)/8. 

PLG(6,1)  = ( fc3.*C2*C2*C  - 70.*C2*C  ♦ 15.«C)/8. 

C PLG(7,1)  = ( 11  .*C*PLG(6,1  ) - 5 .*PLG  (5 .1  ) >/6  . 

t P L G ( 3 » 1 ) = ( 13.*C*PLl>(  7,1  ) - 6 . *PLG  (6 , 1 ) ) /?  . 

P L G ( 2 » 2 ) = S 

PLGI3.2)  = 3**C*S 
P L G ( A , 2 ) = 1 .5- ( 5 . *C2-1 . ) *5 

P L G ( 5 , 2 ) = 2.5*(7.*C2*C-3.*C)*S 
PLGlfc.2)  = 1 .875  * f 21 .*CA  - 1a.*C2  ♦l.)*S 
C P L G ( 7,2)  = ( 11  .*C*PLG(b.2)-6.*PLG(5,2))/5. 

C ?LG(«,2)  = <13.*PLG(7,2)-7.*PL&<6,2 ))/t. 

C P L G ( 9 , 2 ) = (15. *C*P LG (8,21-3. *PL 0(7,2))/?. 

PL  G I 3 , 3 ) = 3 . 0 S ? 

P L G ( a , 3 ) = 15.*S2»C 


L 

L 

C 

C 


C 

c 

c 

c 

r 

c 

c 

c 

c 

0 

c 

c 

c 

c 

L 


r 

c 

c 

c 


2 t A 

— 

PLGI5.3) 

= 7.5*I7.*C2  -).  ) * S 2 

26  s 

— 

C 

PLG (6,3  ) 

r 3 .*C *PLG (S, 3 )-?. »PLGIA  ,3  ) 

2 66 

— 

PL  G ( A , A ) 

= 15.*S2*S 

2 67 

— 

c 

PLGI5.A) 

= 1U5.*S2*S*C 

2 6b 

— 

15  CONTINUE 

269 

— 

IF (TLL .c 

0. TLOC  ) GO  TO  16 

2 7C 

— 

STlOC  = 

SIN(mR*TL0C  ) 

2 71 

— 

CTlOC  = 

CCS (HR  oTLCC  ) 

2 72 

S2TLUC  = 

SIN(2.*MR*TLDC  ) 

• 2 3 

— 

C2TL0C  = 

COS (2  .*HR*TLOC  ) 

2 7 A 

— 

S3TL0C  * 

S 1 N ( ? .*HR«TLOC  ) 

I ?\ 


or-so  0000000000000000 


- 1 ST1 M, 


2 75 
2 76 
277 
2 78 
2 79 
2 30 
2 1:1 
2 62 
2 r i 

2 : ■ h 

2 '5 
2 r 6 
227 
2 6 3 
2 69 
2 = C 
2 9 1 

292 

293 
2 96 
295 
2^6 
297 
2 98 

2 ° 9 

3 90 
3C1 
3 C 2 
39  3 
3C9 
305 
3 0 1 
jO  7 
3 J o 
3 f 9 
3 1 C 

31  1 
312 
3 1 3 
3 19 
3 1 5 
31b 

317 

318 
3 1 9 

322 
321 
3 22 

323 
329 

32  5 


C ? T LllC  * CDS  (3.iSHR®TL0C  ) 

111  = TLUC 
16  CONTINUE 

IF(DAY.NE.UAYl.UK.P(19l.NE.P19)  CD19=CLSICR*(DAY-P(19m 
IF (DAV.NE .DAYL .PR .P  <18 ) .NE .P18 ) CCie=C0Sl2.*lR»<GAY-P(l°))) 
1F(DAY.NE.UAYL.PR.P(32).NE.P32)  CD32=CU5(DM(DAY-D(22>)) 

I  F ( DAY .NE .DAYL .DR  .P ( 39)  .ME  .P39  > CP3S  = C0S(2.1>CR*(DAY-P(39)>) 
DAYL  = DAY 
Pl6  = P(  19) 

PI  B = P ( 18  ) 

P32  = P ( 32  ) 

P 3 9 = P ( 39 ) 

C F10.7  EFFECT 

DE  = r 1 07  - F 1 0 7 A 
DFA  =F 107A-i5U. 

T ( 1 ) = ( P ( 2 0 I 4 0 F ♦ P(21)=>UF»DF  4 P (2  21  * l FI  C7A-15C.))*SK(1) 

FI  = 1.  ♦ 5W  ( 1 ) * ( P ( 98  ) $DF  A*P  I 97  ) s>CF  ) 

F2  = 1 .♦  Srf(l)s(P(50)*0FA4P(99J9DF) 

C time  INDEPENDENT 

T (2  ) = 

1 ( P(2 ) *PLG( 3. 1 ) 4 P( 3 ) *PLG  ( 5 , 1 ) ) 

2 +P (27 )*PLG (2.1) 

C SYMMETRICAL  ANNUAL 

T ( 3 ) = 

1 (P( 19 )4P( 23 UPLG ( 2 ,1 ) ) *CD32 
C SYMMETRICAL  SEMIANNUAL 

T (9  ) = 

1 (P(16)*P(17>ePLG(3,l))*CD19*DC<fc> 

C ASYMMETRICAL  ANNUAL 

T ( 5 ) = FI* 

1 ( P ( 10 ) *PLG (2 , 1 ) ♦ P ( 1 1 ) *PLG ( 9, 1 ) 4P ( 2fc ) *PLC ( 6,  1 ) ) *L C 19*CC ( E ) 

C ASYMMETRICAL  semiannual 

T ( t ) = P ( 3e ) * PLG (2 , 1 > *CD39 
C DIURNAL 

T 7 1 = P( 12) *PLG( 3.2)*CD19  4 P ( 3 6 ) *P L G ( 2 , 2 ) * C C 1 9 
T 7 2 = P ( 13  >*PLG  ( 3 ,2  )*C  D 16  4 P ( 3 7 ) *P  L G ( 2 , 2 ) * C C 1 9 
T ( 7 ) = F 2 * 

1 ( ( P(  9 ) *PLG(  2 .2  ) 4 P(5)*PLG(-»,2)  4 P < 2 6 ) * F L C ( fc  , 2 i 

2 4 T 7 1 ) *CTLPC*Dc  « 1 ) 

9 4 (P ( 7 ) *PLG (2  ,2  ) 4 P(d)*PLG(9,2)  4 P ( 2 9 ) *P  L C < 6 , 2 ) 

5 4 T72 )*STL0C*0C ( 2 ) ) 

C SEMIDIURNAL  4 TEROIURNAl 

TP1  * P ( 29)  *PLG(  9 ,3  )*CD19 
T 8 2 = P ( 39 ) *PLG  < 9 , 3 )*CD19 
T ( 8 ) = F2* 

1 ( (P(fc)*PLG(3,3)  4 T81 ) *C2TLUC*0C ( 3 > 

3 4 ( P( 9 ) *PLG ( 3.3  ) 4 T32)*S2TLUC*DC(9) 

9 ♦ ( P (90)  *PLC-  (9 , 9)  ) * S 2 T LC  C 

5 4 ( P( 61 ) *PLG (9 ,9  ) ) * C 3 T L C C ) 

C MAGNETIC  ACTIVITY  BASED  ON  DAILY  «P 

A P G = ( A P ( 1 ) -9  . ) 


ooooooooooooooooo«~>ooc'»oor'>of"*oooooo 


.!  STIt.C 


/ 


L5/ 


3 3 C 

— 

50 

T INF  = 1 . 

1 

331 

— 

DC  50  I = 1 , NS  W 

C 

322 

— 

50 

T I NF  = T INF  ♦ A fa  5 ( 5 W ( I ) ) » T ( I ) 

C 

3 33 

— 

GLOBE  = TlNF*Pfl) 

l 

j35 

— 

XL  = LAT 

l 

325 

— 

SECL  = S E C 

C 

336 

— 

XLCN  = LONG 

c 

j 3 7 

— 

RETURN 

c 

3 3b 

— 

ENTRY  TSELECISV) 

c 

3 9 

— 

00  IOC  I = 1,15 

( 

3 5J 

— 

100 

5 W ( 1 ) = S V ( 1 1 

( 

351 

— 

re  turn 

f 

352 

— 

ENTRY  G L B ( S 5 ,0R2ti  ) 

V 

353 

— 

DATA  PL/5»C.,l.)5E-3,-1.27c-3,-2.5br-2,7.3eE-3,-.C37,-1.2CE-I. 

c 

3 6 5 

— 

i .C13,6.70E-2,2.72E-3,10*0.,1.39E-3,25*0./ 

( 

355 

— 

OATA  NPL/10/, KPL/15. 15, lo, 17, lfi, 19, 2C.  2 1,22, 23, 2m. 25. 26/ 

i 

3 5c 

— 

DATA  KPP/51, 52, 53, 55, 55, 56, 57,55,59, 60, 61.62, 63, 65, 65, 66/ 

I 

357 

— 

GLOBE  = P ( 30 ) 

i 

35b 

— 

5 5=  P ( 2 5 1 

\ 

369 

— 

D R 2 8 = 1 . 

( 

3ri 
ill 
3 ; 3 
3 55 
i 35 
3 5c 
35? 
3 5 a 
3 3 9 
3 6 6 

361 

362 
3 c 3 
365 
365 
3 66 
36? 
36  6 
369 
3 7C 
371 
376 
373 
3 75 
375 
.>  7o 
3?7 
3 7 e 
37V 
3 JG 


t 


...  C 


) ’CL  15  + 


IF ( S W ( 15) .EC.O.  ) RETURN 
1FINPL.EU.01  GO  TO  201 
00  200  L = 1 * N PL 

200  PL  IKPL(L) )=P(KPP (L  )) 

201  CONTINUE 

LOWER  BOUNO  TEMPERATURE 
GLOBE  =1  . ♦ 

1 5 h ( 5 )* ( PL ( 9 )sPLG ( 2.1) 

S Sw(5)*(PL(11>  ) * C D 1 3 

GlOBE=  GL0BE5P(30) 

SHAPt  FACTOR 
S5=  P( 251 *( 1 • 

1 ♦ S W I 7 ) * ( l P L ( 15):>PLG(2ti!l'*-PL(15><'PLG(5.2)  + PL(221*PLG(6 

2 ♦(PL(lfe)*PL&(?,2)+PL(17)*PLC(5f2)+PL(22)»PLC<6, 

3 ♦ S to  ( 9 )M  ( P L ( 1 8 1 *PlG(?*3)-*PL(  19)<*PlG(5»3  1 1 * C 2 T L 0 C 

5 ♦IPL(2C)=»PLG13,31  + PL(21)*PLG(5,31»*S2TLLC)) 

LOWER  eOUNO  N 2 RATIO 
OP  2 8 = 1 . 

1 + SW<7)MIPL(l)*PLG(?,2MPL(2)*PLG(5,2))*CTLrC 

2 ♦(PL(3)»PlG(2.2)*Pl(5)*PlG(5,211*STLLC) 

3 ♦ 5 W ( 8 ) <■  ( (PL  ( 5)<,0LGI3»3)'*-pL(d)!>pL(. I 5*31  1 * C 2 T L C C 

5 ♦ (PL(7)*PLGl3t3  1+PLm*PLGI5,3))*52TLLC) 

S ♦ SW( V 1 *APDM PL  ( 1 2 l+PL  (25  1 *PLG<3 , 1 1 > 

* ♦5W<5)*PL( 10J*PlGI2,1 )*CD15 
$ ♦ S W ( 5 ) OPL (1 2) *C 01  a 
RETURN 

entry  ocrtal  ,p.  tnfi 

IF  ( SwI  15  ) .EC  .0  . .OR.  PI531.FC.0.1  RETURN 
A l T = A L 

IF (AL.LT.15C.  ) A l T - I 50 . 
tXPD=FXP( ( 15C.-ALT)*AB$(P(53 ) J) 

Of  (11  1 .4P( 51) *1  XPO 
U(  (?)  l.«P(5?)*i  XPL 

Of  ( 3 ) r 1 . *P ( 5 5 ) *f  XPC 


,2  ) ) ‘GUI  C 
2 1 ) * 5 T L [ ( ) 


125 


LISTING 


3 0 3 
^i'^> 
3 s 7 

3 bo 

3 f 3 

3H 

3^1 

3 3 t 

39  j 

39b 
39c 
3*7 
3 7 3 
3 ° 9 
<.00 
hO  1 

992 
*♦9  3 

-t 

993 
9 ' o 

9 0 7 
9 C ti 
9 0 9 
MC 

911 

9U 
91  3 
919 
9 1 3 
9 1 6 
917 
91b 
9 1 9 
9 2 C 
921 
9 22 
923 


C 

c 

G 

C 

G 

C 

C 

/■ 

c 

c 

c 

t 

c 


DC I 9 ) = 1 ,+P(59)oEXP2  ( 

UC  IS  > = 1.+P(57>=>E  XPC  < 

DC  ( 6 > *1  . *P  ( 5 b ) *h  XPD  f 

DC (7)= 1 .+P(E9)*fXPD  C 

1 DC  = 1 f 

RE  TURN  ( 

END  l 


Fl'NC  TICK  OENS5(ALT,r)LE,TlNF,TLB.*H,ALPHA,TZ,2Le.S,SF) 

calculate  static  diffusion  model  ambient  lekssities 
ALT  = ALTITUDE 

DLB  = DENSS1IY  AT  lOrER  BOUND  ARY 

TINE  = FXCSPrtFRE  TEMPFRATURE 

TLE  = TEMPERATURE  AT  LOWc0  bOLNCARY 

MW  = MOLECULAR  WEIGHT 

ALPHA  = THERMAL  DIFFUSION  CCEFF. 

7 L B = ALTITUDE  UF  LOWEP  BOUNDARY 
T 2 = TEMP  AT  ALT  (OUTPUT) 

S = TEMPERATURE  GRADIENT  PARAMETER 
SH  - S L A L i HT  AT  A •_  1 I K M ) 

REAL  Mb 

DATA  Rc/63b6.77/,6SURF/c3C.665/,RCA5/P.31<.E*2/ 

DEN5S  - 1 . 

S I o M A = S •*  1./<«E*ZLB  ) 

ZFT  = C R E -»  Z L t ) / ( RE«ALT) 

ZF  T A=<  ALT-ZL3) »ZcT 
EXPSZ  = EXP( -S IGMa^ZET Al 
TZ  = TINE  - (TINF-TLBJ=>EXPSZ 
1 F ( M W . E 0 . 0.)  GO  TO  10 
GLBS  = GSURF  / ( 1 .*ZLB/Pt  1**2 
A = 1 . - TL5/T1NF 

GAMMA  = MW*GLBS/ ( SIGKA*RGAS*T INF ) 

SI =ZET#*2*S I GMA* ( GAMMA* ( 1 .O+GAMMA  + ALPHA ) *A*E  XPSZ/ ( 1 .-A«EXPSZ ) ) 

SH  = 1 ./SI 

DFNSS  = DLb»  ( ( 1 . -A  I /(  1 . -a*E  XP5Z  I I 1 .+ ALPh  A*G  AWM  A I 
1 *EXP(-S1GMA*GAMKA*ZETA) 

10  CONTINUE 
RETURN 
END 


T 1 N A T l ON  CATAScT  IS  ABUUT  TO  3E  WRITTEN 
KF  GIVEN,  RF  DONE 

r I NAT  I ON  DATASET  HAS  NOW  BEEN  WRITTEN 

+-+.+.+_+.4-+_4-4-+  EDITOR  TERMINATING  91/ICC  SECCNCS  IS  ELAPSE! 
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• J 


- V* 
1 1 
12 
1 j 
1 H 
1 D 
1 t 
17 


1 V 


2G 

7 1 
2 2 
? j 


? c 
2 7 
2 3 
? 9 


31 

32 


- b 


L i 


- c 
■*  3 

3 3 


-7 

3 3 
<-9 


= u 


,J=PL16»DN=RSPR,PL 

C <RSPR> 

SuF  ROUT INE  PE  PR  ( Z.  ZOX,  ZN2.ZU2,  SZ  A,  TN  , ZPR  , JMAX  ,SM  ,TFP  1L  N , . EM 

C ? S $ S PROGRAM  FOR  Tnt  CALCULATION  PF  THE  PHLI  T L E L E C T R CiV  ENERGY 

Ct5$i  SPECTRUM,  AT  SPECIFIED  ALTITUDES.  THIS  VFRS1CN  LSES  ARRAY  ElSPEl 

LJiSi  TU  CREATE  A CATA  FILE  fuk  THE  2-STPEAM  PRCGkAF 

C....  THIS  PRPURAM  COMBINES  A A.  NAGY  PROGRAM  r»  I T H TK  C.  T ( R R ClLLFN  Off 

— c....  z pr  is  the  upper  altitude  for  product  ii_n  , eut  the 

c PROGRAM  WILL  NUT  ALLOW  > F 0 P ! 1 N T S f N EACH  FAC  PF  FULL  LINE 

I****  SET  DC  B 9 = ;'SPkUL  , ELEC  SPEC  CN  DCB=d 

c + 4 + - Z=ALIITUDE;  ZOX,  ZN<  ./(  2 . LTN  ARl  NfUT  P c N S t TFMP  A k & M S 

G + •»  + ♦ SZA-SPLAR  Z^MTH  ANGLE,  Z P R = M A X ALT  ETR  P«LD  CALC,  . \*  A x = 

— c ♦ » ♦ ♦ t r t a l * uf  alt  s t e f s , swi  - Switch  =o  calc  i c n prcg  only 

G+  + + + T PR  I LN  = I ON  PMD'JCTiLN 

REAL  N 

DIMENSION  ZFLUXI ICG) , FLU XT  ICO) ,51GAPS( 3, ICC) , 5 I G I C N ( 2, ICC ) , 

] CTLUMN  (3  ) ,hPLO  (3  ) ,XN(?  I ,SPECT  ( 125  ) tPkOB  ( 2 .ICC)  .XNT  ( 3 ) , 

lPHtll73),PHE2(73),ENER(19E),PPA(2),TPCT(2,7),NNN(2),IPKlLN(2,2CC) 

1 , = PS I LI ( 3 ,7, 1 00  ) .EPS  1 l2 ( 3,7, 100)  .DEL ( 125  ) ,PEHE AT ( 3 , 7 ) 

? ,ElSPEC<12C,1CC).ZLAMU0D),pRICN(3,7) 

DIMENSION  Z0X(300).ZN2(300),Zj2(30C),TNT3CC).SZA(2CC),Z(3CC) 

InTEGEk  SW1.SW2 

L..,,  5 R 1 T CH  1SW  IS  USED  Tq  SUPCkISS  SOME  OUTPUT  ( = C ✓ I ) 

DATA  ISW,  F E . GE  ,LM.AX,1JC,FAC 

> / u , 6 . 3 5 7 [ 9 , 9 P J , 0 .0,1  / 

«R1Tl(6,103) 

I E j - IJMAX+l )/2 

IFTZTJM AXl.CE.ZPR)  ltC=JMflX+l 

IJC  = L> 

DC  33  1=1.3 

DC  33  J=  1 , UMAX 

i F ( J.GE . 1FC)  GO  TO  33 

1 F ( Z ( J)  .lT  .7  PR  ) J°R=  J 

33  TPRICNII  , J ) = C . C 

IF  (JPK.GT.tU)  J P R = GO 

Cc  ai‘  READ  THE  INPUT  PARAMcTERS  IU)U*wt«AftA 

1 E ( lmAX ,NE  .0 ) GC  TO  1 A9 

1CC0  REA0(5,20D)  C H I , 1 W!  , Sw 2 , LM A X 

C.,,,.  NNN  = NC.  OF  ILN1ZATICN  S T A T E S / S P F C I E S T TFPT  = ICNIZ.  PLT 

DATA  NNN/5,7,4/ 

DP  Q1  Kl=l,3 

N 2 = N f,  M K 1 ) 

91  RFADTE ,92)  ( T P U T l K 1 ,L 1 ) , L 1 = 1 , K 2 ) 

DP  P 5 L= 1 , LM AX 

85  READ!?, 103)  Z L AM  L ) , PrtE  1 < L ) , PH  f 2 ( L > , Z F lO  X ( L ) , 

1 (SIGABSTI  ,L ) .1=1,3)  , ( S I G I U N ( 1L  , L ) , I L = 2 , 2 ) 

C****CriI  =ZEM  THANGLF  (RAD ) , S*11S  SwITCh:  FOR  TOTAL  1LNIZAT  ICN  CMY  < * 

Cs*os$ET  CREATOR  than  zero;  I M A X = A l T INCS  FPr.  CENS1TY  DATA;  L Fi  A X <<!! 

C#***  = r.AVFLENGTH  INCS;  Zll)  IS  LOWEST  ALT;  DELZ  IS  THE  ALT  * * * * 

C^-^MNC  JMAx=  Alt  INCS  TO  BE  USED  IN  the  CALCS;  fto# 

0 s $ $ <■  RE  = EARTH  RADIUS  5 G£=gRAVIIY  AT  SURFACE  *»***■> 

C<.»**!!!bB  SURE  THAT  DENSITIES  ARE  PROVIDED  DOWN  TC  GRAZING  HEIGHT!!! 

C....  pnE 1 -2  ARE  START  * END  UF  WAVlLENGTH  BOX  IN  FV  ; ZFlUX  IS  INTENSE 

C...  ; SICABs  = AP  SORB  , COfcM/E-18  5SKIUN  = TLTAL  ILK.  X -SECT  1C N 

Of  ?b°  LL  = 1 . lMmX 


/ 


! j T 1 ■'  0 


'j 

— — — 

‘ c 

— 

S 7 

- e 

::: 

5 -> 

to 



739 

6 l 

p c 

G . . . 

*■  J 

*•  A 

(.  C 

— 

— 

t 7 

— 

9 = 

t v 

— 

G 

i 1 * 

— 

71 

— 

72 

— 

7 3 

— 

7 M 

— 

it 

7 p 

— 

97 

7 fc 

— 

C + + + 

77 

1 e 

— 

7 j 

— 

— 

1 A9 

31 

— 

c * >.  * 

ZFi.UX(U)=/FUJ*IU)*l.rV^A( 

S I o I ON ( 1 , L L > - .S  1 (.  A M S ( 1 , L l ) 

U(  7d9  I 1=1.3 

1F(S1GAPS(1I,LI).LT.SIGIuN(II,LU) 

SI  Glum  1 , LL  ) = SI  Cl  INI  I I . L L » • 1 .fc~lfe 
SIuABSI II »LL)=SIGABS(1 I «LL)°1.c~16 
i FPSlLl-2  ARE  c N F k G Y P.F.  *3  RESULT  1 F.  0 
UT  93  L -1  » L P A X 
0^  A;>  1 = 1.3 
K 1 = NNN  ( I ) 
or  °3  K = 1 ,K  1 

to  SI  L 1 ( 1 ,K  ,L  1 = PHE  1 (U-T  ?JT  U ,H  ) 
FR'SIL2II.K,L)  = PHE2(L>-TPDT(1,K) 

Cf  NT  1 NUF 

FIND  PRCbAblLI  T Y F L F.  FORMAT  1 0 N OF 
call  PRoes  (Pkoe . zl a^.lnax » 

IF(lSw.EQ.O)  Gtl  Tl  97 
or  96  1=1.3 
l SM  =NNN(  I ) 

WRlTF|fc,209)  ((PrCB(I,1N.L),L=1,LMAX) 

C CNT I NUE 

SETTING  up  ENERGY  POXES  (MIoPT.  FNFRC1ES) 
OATA  OEL/12t'al  ./ 

E N c R (1)  = G . 5 
DC  1A92  P,=  2,125 

ENE°(K)=ENtR(M-n+0.5*IDEL(K.-l)+OEL(*OI 


SICA9SI  II  ,LL)-S1(  IFNI  II  • L L ) 


FRLP  A GIVEN  STATE 


AGP  STATE 


1 N = 1 , N N M ) 


+ + ♦ + ♦•* 


ALTITUDE 
G P kPL)  = i ON  PRUO 
OF  E A G w I UN 


LLOP  BEGINS  hrRfc  >.  -t 
; PE  ME  A T = F LF  C TRCN  riFAT  PRCO.  : R R ) C N = 3 R E C 
STATE  , I J ( USED  FfR  GLNJfCATE  REMSdPFkE 


RATE 


P ^ 

— 

1 A A 

or  7 J = 1 , J M A X 

■j  b 

— 

1 J = J ♦ 1 J c 

•3  7 

— 

OF  7tj6  1=1,3 

i d 

— 

PRLOI I ) =0. 

C 7 

— 

DC  7 3fc  K = 1 , 7 

7 L 

— 

PR  I I’M  I , K I =0  .C 

r.  i 

7*  A 

— 

7 = 6 

P F ri  F A T ( I ,K ) =0. 

' C 

— 

T N J = T N ( 1 J) 

cp 

— 

X N (1) = 2 0 X ( 1 J ) 

A 

— 

XM2)=Z0  2<IJ) 

o 5 

— 

XM2)=2N2IIJ) 

*. 

— 

7.2  - 7 { I J ) * 1 .CE+B 

->  7 

— 

C H I = S / A < I J ) 

9 6 

— 

G f.  It  L 

EVALUATE  the  neutral  column  ofns 

‘•9 

— 

(All  PCGLUM  (CHI  , ZZ  , T,NJ  , XN  .COLUMN 

I VC 

— 

R2 

or  1 ? K = 1 , 12  5 

i r l 

— 

1 3 

5 P E C T ( K ) = G .0 

1 <"  c 

— 

c 

k AVE LONG Tn  LOOP  BEGINS  HFRF 

1 r 3 

— 

c 

t ao  = optical  depth  :Flux  = flux 

1 G-. 

— 

DO  6 L = J , L M A X 

i C b 

— 

T A J : C . 

i : 6 

— 

or  A 1=1,3 

1'  7 

— 

A 

TAU  = TAU4S1GAES(  I ,L)=CrLUMN(  I ) 

1 7 3 

— 

FIUX(L)=ZFLUX(L)*FXP(-TAU) 

1 39 

— 

PTCT=0. 

ULlLllt 


AT  ALT 


R.fcvELENCTF  L 


i;>h 


/ 


-1ST! \o 


11.  --- 
111  --- 
112  --- 
Hi  --- 
in  --- 
115  --- 
lit  --- 
* 117  --- 
lib 

in  — 

i C 0 

121 

i 2 2 

12  j 

1 ?*» 

125 

i 2 t 

1.-7  --- 

12b 

12  9 

12. 

1 < 1 

12  2 

1 2 j 

12s 

lip 

lit  --- 
127  - - - 
1 2 o 

m — 
n.  — 
m --- 

iw  — 

199 

1-5 

Ut 

i 97 

19c 

199  --- 


19  2 

1 c3 

lr;s 


1 36 

1-.7  --- 
1*3 

' l -ig 

1 GC 

161  --- 

16.2  --- 

1*2 

1*9 


15, 


C «■««■«><■  5 <-»  F C I c 5 LOOP  b c G 1 N S Heft  o o o e«  «> 

JC  309  1=1,2 
*. 1 = NNX  ( 1 ) 

••  • **  * LOOP  THRU*  lNcPGY  STAIFS  

C " ••  J S pf  C T = ? FORMED  t'Y  w-L  L b Y I L M 7 A I 1CN  LF  iHf  k S T A 1 f CF  T»E  i 

or  202  K=1,K1 
El  = EpSlLl(  l ,H  ,L  1 
E?  = EPblL?(  ! ,K  ,L  ) 

IF  ( E 2 .LT.  C.)  CC  TO  302 

0SPFCT  = XN(1  )»SlGlCN(l,L)«FLUX(Lnf'KCb(I  ,K,L) 

1 F ( E 1 . L T . 0 ) CLptCT=DSP[ CT*F2/(E2-fc  1 ) 

1 F ( E 1 . L T . 0 ) E 1 = 0 
Y * 5 2-  51 

PPLDI  1 ) = PPuD(  I MCSPECT 
P K 1 T N ( 1 » K ) = p R J C N ( I ,!<)■*•  jSPFCT 

PF  n5  A T ( 1 , K ) - P P 1 U fi  ( 1 ,K  )*TP(  T ( 1 ,K  I 
PTOT=PTCT+PEHf  AT  ( I ,K  1 

c ; ; : ; ; ; *u  w distfipuTc  p.c.^s  imu  emeRgy  eoyes 
c : ; ; ; ihcy  ake  stored  in  array  spfct 
jOI  CALL  PLXNUM  ( E 1 ,E  2 .Ml  ,M.2  ,R  1 ,R2  ) 

L ? ? ? ? FUl  THE  dOXES  2ETREEN  Ml  AND  M2  ????? 

IF (M2-  Ml)  92,  52.  5 c 

51  *»  9 I T E ( 6 « 106  1 L.  1,  K 
Of  TO  3^2 

52  SPEC! (Ml):  SPEcT ( M 1 ) + DSP  E LT 
GC  Tu  302 

53  DCcG  v = M 1 , M 2 

1 F ( M-  Ml)  92,  59,  £5 

59  5 c E C T ( M ) = 5 p E C T ( M ) ■*  JSPECTMkl-  Ell/Y 
GC  TO  60 

55  I F (M-  M2)  56  , 57,  92 
5 6 5P  E C T ( M ) = S P E C T ( M ) + D5 p E C T *DE L ( *0 /Y 
GC  TL  cO 

57  S p c C T ( M ) = S P E C T ( M,  I ♦ uSPE C T* ( t*-  R?)/Y 

60  CCNTINuE 
3C2  CONTINUE 

L ION  THRESHOLD  L(0P  ENOS  HERE  

3 C 9 LCNTINuE 

SPECIES  Tf.PE  SrlCLO  LOUP  ENDS  MERE 
6 LCNTINUE 

C WAVE  LEND  In  LlUP  FNLS  HEkE  

L::::::::  STORE  P.E.  SPECTRUM  IN  fc*  array  FOR  ThE  2-STREAM  PRCl.  ::::: 

TpRLD=0.0 
Cl  6r,d6  M = 1 , 1 DC 
I K = 1 0 1 - Ml 

TPPC.C  = TPPCD  + SPEC  T (MF 
6066  F LSPEC ( J , IM  M Sp'  C T (M  > 

IF(SWl.EQ.O)  GO  TL  60 6 M 
1 F ( ( 1 J / 1 0 ) - 1 0 . t (1  . I J ) W R I T E ( 5 , 1 JO  ) 
w R 1 T E ( 6 , SF9  I 1 J , i ( 1 J ) .TPP.UD,  SZA  ( I J I 
oC  3 8 CONTINUE 

c....  c-*  puCduction  for  2 lo*fst  statcs  

TPSIPN ( 1 , I J ) =PP I ON (1 , 1 > 

TPRIOM  2,1  J ) = PK  I P N ( 1 ,2  ) 

TAP  ID\(3*IJ)  = PRI0N(1  , j) 


17  <) 


1*5 IFIlbW.Fo.G)  GL  II  H 

l‘t *=lTt(o.lCl>  (CHI  , ( 1 f.L  Uw U ( I )*I  = 1*?)  ) 

1 6 7 R«ITc<t,lC5)(N,SPECT(N),rf =1,125) 

1 *■  b UBJ7EleilCc)  (PRI  Dl  1 ) » I - 1 « ? ) 

1 - i PR5(l)=pRICN(?.l  MPR10N(3.6)*PRIONI3|E) 

1 7 j PRm  ( 2 1 =PR  ION  ( 3 , 2 ) ♦ PRIGfH  3 . 3 ) 

17] ENUM=0.0 

172  tNfcPGY-C.G 

1 ">  3 CC  1593  M=  1 , 125 

l'/5 EN'::RGY  = ENERGY  + E;JER  <M)*$PcCT  (M  ) 

175 16  9 3 fcN^^  = trr»UM+SDfcC  T (M  ) 

1*6 [PAp=Fl.r  RGY/[f.  Uv 

177  wRlTE(6,16C3) 

173  ITfc  ( fc  , 1*6M  ( 1 , ( P;J 1LN  l 1 ,K  ) , K;1  , 7 ) , 1 = 1 , 2 ) 

175 wRITE(b»15fc6)(  I , (PtlicAT  (]  . K ) , K = 1 , 7 ) .1-1.3) 

1 7 C v.RITE(c,  1656)  ENUM,  ENERGY, FEAR, PICT 

1M 6 CONTINUE 

1 t c I F ( 1 J . fc  0.  JHA  X > GC  TO  77 

1-3 IF ( I J .EC . JPR  ) 1 JC =JMAx-2*J 

1 ' s 7 CONTINUE 


155 

C * 

\y.y.\  altitude  log0  ends  here 

1 • c 

77 

JzMAX=101-JEM 

1-7 

ftRITE (2,330)  JPR,  JEM 

1 0 

DC  7 o L = JFMAX, ICG 

1 *■  9 

IP 

wRlT£( b,o7d)  ( ElSPEC  1 I ,L  ) , 1 = 1 , J) 

190 

75 

CDNT 1 N U E 

17  1 

21 

w R 1 T E ( 6 » 106) 

1,2 

RETURN 

1-3 

92 

FORMA  T l 7T  7.2  ) 

1 3 

53 

TORMATl*  EkPLR  1.2  Or.  3*,2X.13,2X,1?,PX,I? 

1 r 5 9 9 FO*MAT  ( Ib.PIC.  1 . 1P2F.13 . 3) 

1 i 6 100  FORMAT  ( 3X,*LEVEL*,5X,*HE  1GHT  K M . - , 5 X , * T 0 R C L'  * , 5 X , *5  Z t * ) 

157 1C1  FORMAT ( 10X , *CH I = * , F 5 . 1 , 1 OX  , *C  C LU  M„  DEN S I T I F S * , / / 8 X , *GX  #.1P:U.3, 

l -o 1 7X , *C0# ,E 1 1 .3. 7X , *N2*, E 1 1 .3  //) 

1 9 10  2 FORMAT  ( ( •*  0 * , 13.  1 P T 1 2 . 5 , 3(1  t , £12.5))) 

27,0 1C  3 FORMAT  ( “FNTER  FLEC  SPEC-) 

201 105  FORM AT ( *0°.  1CX,  *NORMAL  COMPLETION  OF  C 0 F P 0 T A T I C N * I 

til 103  FORMAT  (35X»*PHDTLlCLfCTRriM  ENERGY  J P E C T R U M * / / ( * C * . c ( 1 5 , 1 P E 1 1 . 2 ) ) ) 

2 " 2 106  FC  KMAT ( *0*.  1 5 X , * l = * , 13,  5 X , *1=*.  12,  EX,  * K = * , 12,  5X,  * L A T A E 

2 ’5 1 R B L R * ) 

t'.s 10rt  F T RMaT ( Iril  , * CL EC TR CN  PRIDUCTION  RATES  FOR:*/*  C C 2 * , E 1 S . 7 , / < C 

2 76  1 0*,  £15. 7,/*  0 * .£15.7,/*  HE  4, FI  5. 7) 

277  105  FORMAT (F9.2.UF7.2) 

236 ilC  FORMAT ( 1 26 ( 1 PF 10  .3  ) ) 

207 200  FORMAT ( 1 F7 . 3 ,E I 1 C ) 

21 J 409  FCKMAT(flF7.2  ) 

211  330  FCRMAT1211G) 

2)2 67c  FCkMA  T ( iP3L  10. 3 ) 

2i3  156a  FORMAT ( /1CX,*FXC  i TtD  ION  PRODUCTION  RATES */) 

215  1665  FTRMaT (10X,I5.5X,7E13.6) 

2 1 5 1 595  FORMAT  (/ 10X,  *E  Nl!M  ,E1  2 .6 ,2X,  *EN£FG  Y = * ,E  12 . 6. 2X  , 

2.6 1 s' JAx  = * , t 1 2 .5. * TuTAL  HEAT  INPUT*# ,c 3 2 .6/ ) 

2)7 52  RP  I Tt ( o ,98  ) 1 ,K  ,L 

2)6  GO  TO  302 

i'  i END 
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L <P  S9C> 

SUbRUUT 1 NE  R COL UK ( CM  I , l , T N J ,XN  , ( L L U MN  ,R i , f E ) 

C + + + -r  THIS  R L U T I f.  E EVALUATES  T H T N t U T R A l COLUMN  0 E N S 1 T V 
<»♦♦♦♦  SEE  SMlTh  L SMITH  JGR  19  7?  P 3 592,  5 LI  PR  GTS  3 I A THE  MS  IS 

C + -**-*-  NEUTRAL  ATM  C' SR  Hr  RE  NUDEL  F UR  7<]?C  KM,  ChI=5ClAF  7EN  ITh 
ANGLE.  El  L GE  RADIUS  ANu  C R A V CUN  F L1  R c^rth 
C I MENS  ION  XN  <3  ) , VEK  TCL I 3)  .COLUMN  13)  ,SM  51  ,M  2 ) ,DGN  ) ,T  ( 2 I 
CATA  A ,e ,C,C , F ,G/1  .0oU69  63 , 0. 5569  38  31  ,].Cfcl9t9t,1.7Z95eC5 
> ,0.6 69 9 'o23, 0.0*651879/ 

DATA  EM  , H ( 1 ) , M ( t ) , M ( 3 ) 

1 / 1 .662E-2*,  , 16  . 3?  , 26/ 

CATA  1 D A Y ♦ iEC  , GLAl,  CLUNG,  ClST,  F1C7A,  F1C7,  A p 

1 / 7 o 3 1 8 , 6199b  , 9 G . C , 3G.0  ,16.50,  7E.C  , 7 1.L,  31/ 

C IS  SZAS90.0  DEGREES 

IF  l Cn  I .LT.l .5703 ) G L TD  2538 

C CALCULATE  GRAZING  INCIDENCE  PARAMETERS 

ALTC=(6?7l.DEE*Z)*SIN(3.I516-CHI)-6?71.CEE 

C IF  GRAZ  1 N o HE  IGHT<  120KM  . .PRODUCTION  IS  ZER[ MAKE  CfLLMN 

l LARGE  to  achieve  this 

IF  ( AlTG  .GT . 1 20 .E 5 )oG  TO  1001 
DC  23  1=1,3 

2C  COlUMM  I ) = 1 .c*tr 
RE  TURN 

C....  CALL  NEUTRAL  ATMOSPHERE  FIR  DENSITY  AT  GRAZING  INCICENCE 
1331  ZG=ALTG*1 .l-5 

CALL  GTS3S(IDAY,SEC.ZG,GlaT  .GLUNG , G L S T ,F  1C  7 A, FIG  7, AF, 92, DC. 
S N I 1 ) = u G ( 2 I 
SN  ( 3 ) = D G ( 3 ) 

SN ( 2 ) = OG I 9 I 
TNJ=T ( 2 ) 

C S M 1 ) = „ , SN(2)=G2  • S N ( 3 I = N 2 , T N J = T N 

C GR  =GRA  V I TY , RP=OI  STANCE  TC  PT  P,  Sh'=SCALE  FFIGHT, 

c RG=DI STANCE  TC  PT  G,  HG=SCALE  HEIGHT  AT  C 

V. 

2936  CONTINUE 

GR=GE*-(RE/(RE  + Z ) ) **2 
R P = R £ +i 

UP  1C  1=1,3 

SH=(1.39E-ifc*TNJ)/IEM*M(I)*GR) 

X®  =RP  /SH 

Y = 5CRT  (O.E*XP)  * A 8S ( CCS  ( CrtI  ) ) 

IF  (Y  ,GT  . lOC.OWk  1TE  (6,  ICO) 

100  FORMAT  (EARNING  , Y IN  ClLUMN(l)  > ICO*) 

IFIY.GT.8)  ERFY2=F/(G+Y) 

1FJY.LT. 8)  ERFY2  = (A-»B*Y)/(C40*Y*Y*Y ) 

1 F { C H T . G T . 1 .5736)00  TO  2 
CHAPFN=tURT(C.5*3.1516*XP)*FRFV2 
COLUMN ( I )=XN(  I )* SH * CHART  N 
GO  TO  1C 

2 RG=RP*SIN<3. 1916-CHI) 

HG=  1 ,3dE-16*TN'J/ 

1 IEM*M(I)*9S0.M6371.E5/Jfc371.E54ALTG))**2) 

XG=RG/hG 

COLUMN! 1 ) =SCRT ( C .5* ’ .1 91 6*XC ) *HG* ( 2 .C*SN (I  )- XN  ( 1 )*EP  F Y2  ) 

1C  CONTINUE 
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r 


t i E Tl'KK 

£ It. E N V 

C - 7 C 

c 7j SOPROUT  INc  snxMJMTFl,  *•  2 ,M1  ,P  2 ,R  1 , R 2 ) 

279 C++4++  T ii  I b SL'c^LUTlNf  FINJS  THF  BUX  N L P 3 E R 5 C L F k E S P C NO  I N C 1C  I H E 

2".j C ENERGIES  El  AND  E 2 . ANiC  CALLS  ThEP  K1  AND  Pi 

£<: C * + ■♦  ♦ ♦ TnlS  SUL5LUTJNE  StTS  Up  CNE  FV  brXFS  OETkEEN  1 AND  IGCEv 

22  ’ 1 M 1 = E 1 ♦ 1 .0 

iti  ---  P2=  22+  1.0 

£ '“, -i  1 - M 1 

2 -o *2-1*2-  1 ) 

2~o RETURN 

2 ->  7 t N C 

c ' d C 

2-9 Sl'tRLUT  1 .‘«E  P NO  6 S ( P K 06  , Z L AP  , L 'X  AX  ) 

2 w C ♦ + THIS  r'  C'U  TINE  OcTlSPINES  THE  RELATIVE  pRr.  PAElLllI'S  CF  Tt- : 

£L>  l C + -»+T>  D 1 f F E K F il  T ILN  STATES  --  SEE  STfLARSKI  2 JChNSCT  JATF  1972  e:FS: 

2 92  U I K F N S I G N NN  (7  ) .SUM  7)  ,R  AT  ( 7)  ,LAXC  < 7,9)  ,S  IGP(  7 ,A  ) ,LAi  P ( 7 ,A  ) , 

*93 1 M7 ,9  ) , A(  7 ,A  ) , S IG  IN<  3, 1 PQ)  .RRCE  ( 3 ,7  , ICO  ,E  ( 7,9)  ,Zl  AM  ICC  ) 

2C:~t REAL  LmKD  ,lAP>'  ,K  ,L  AM 

2 = 0 OF  9 L 9 = 1 » 3 

2 c t RE  AD  (5,  IOC)  F. 

2 / R E -<  L ( c , 1 J C ) I KM  I ) . 1=1,  N ) 

2r  o ICO  FL'SVaTI  7 15) 

c t - - - L 0 1 C 1 = 1 , N 

3 •'  v> K - N N ( 1 ) 

3'.  1 Of  lu  J = 1,K 

i’  £ 3rAD(c,101l  l ACU(  I . J)  , A ( 1 , J)  ,ci  ( I , J ) ,P(  I , j ) 

3(3  10  CENTINUF 

3 , i C 1 FT  k P,  A T ( F 9 . 1 »cl2.3,2F9.2) 

3 ^ or  2C  LLL  = i ,LPAX 

3 c LAMZLAMLLL) 

3 "'7 T C T A L = C . 

3 ' o j(  19  J = 1 , N 

3 ' 9 SUMJ)=0, 

310  J J = M«  ( J ) 

311  Of'  13  K = 1 , J J 

il2 A1  =LA'*/LAML(  J.K  ) 

313  IFTA1.GT.  1 . ) 0 C T 0 1 9 

3 19 lc  SUM  j)  = SUM  J ) * A ( J , K ) M ( 1 .-A  1 ) **(*  ( J , l<  ) ) M C XM  l AP/b  ( J , K )) -1  . ) 

Jib 19  TE  I Al  = T GT  AL  + SDPI  ( J ) 

3 1 3 S I 0 1 N ( L '•  , L L L ) = T l T A L 

.•>  1 7 DC  13  1=1,  N 

3 1c 1 F ( Sup  ( 1 > .!,P  .r  ) GO  Tu  IE 

3:7 c.  A T ( I )=0. 

3 ’ C U T 0 1 5 

3 1 To  *A  f ( I I SUP ( I ) / TO  T A L 

3 ^ 1 3 r'Fu  3 ( L 9 . 1 ,1  L L ) k A T ( 1 > 

3/3  20  CENTINUF 

329  9 CTkTINUF 

3 / 5 " - k F T 0 k N 

3 t c N 0 

■ I 1 i N ! T A S l T IS  AclOT  1C  El  a * 1 I I ‘ N 
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0 ,TL 

i 

— 
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C 

2 

67 

64 

6 7 

c 

— 

13.58 

1 7 

.05 

1 2 .45 

28.74 

39.87 

y 

— 

12.04 

It 

.06 

16.77 

18.11 

20.14 

24  .4  5 

18.45 

L* 

— 
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It 

.67 

IP  .70 
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Zt 

— 
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.00 
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.CC 

k 

— 
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. 1 2 

. Ou 

1 .40 

. OO 

1.  20 

.CO 

1 

— 

991  .50 

12.50 

12.50 

.63 

.00 

1 .90 

1 .40 

1 .60 

• CC 

0 

— 

1006.50 

lc  .10 

12 .50 

.53 

.00 

2 . 6 C 

.22 

1.20 

.CC 

y 

— 

977.00 

12.70 

12.^0 

4.66 

.00 

21  .60 

6 8.10 

1 .90 

• CC 

1 ^ 

— 

572.50 

12.70 

12.70 

.64 

.00 

21  .90 

68  .1C 

1 .90 

.0  0 

1 1 

— 

970  .Co 

12 .50 

1 3 . 1 C 

.28 

.03 

2 3.10 

45  .CC 

1.90 

.CO 

I 2 

— 

°49 .70 

13.10 

17.10 

.21 

.00 

30  .10 

7.16 

2 .20 

.CC 

..  Zt 

— 

9 ^4 . 5 0 

13.10 

13.10 

. 09 

.00 

2 3.40 

39 .80 

2 . 4 C 

• CO 

K 

— 

9 3 7.80 

1 3 .20 

13.20 

. 1 1 

.00 

3 .20 

3.15 

2 .cC 

• CC 

} S 

i > 

— 

933.40 

13.30 

13.30 

.10 

.00 

25.6? 

3.13 

2 .70 

.CC 

1 c 

— 

930 .70 

1 3 .30 

13.30 

. 1 c 

.00 

3 .54 

3.13 

2.75 

.CC 

1 7 

— 

9 31 .no 

1 3.00 

13.60 

.08 

.00 

1 8 .20 

35.74 

2 . 70 

.00 

1 3 

— 

901  .00 

13.60 

13.90 

3.04 

2.96 

12  .50 

46  .CC 

3 .40 

.CO 

j 

1 D 

— 

875 .00 

13.90 

14  .40 

2 .62 

3.00 

10  .30 

4 4.30 

3 .20 

• CO 

C w 

— 

850.00 

14 .40 

14.60 

. 7b 

3.04 

Id  .10 

19 .50 

4 . 20 

.CC 

21 

— 

833.50 

14.80 

14 .80 

.55 

3.07 

24  .00 

.CC 

6 .50 

.CC 

1 

i £ 



8 2 5.00 

14.80 

15.30 

.75 

3.10 

28  .70 

13.70 

7 .70 

• CO 

y 3 
£ «. 

— 

903.00 

15.30 

15.60 

.20 

3.10 

40  .70 

2 1 . 3 C 

9.50 

.CC 

-• 

» 

— 

790.20 

Id  .70 

15 .70 

.3? 

3.11 

31  .20 

25  .20 

9 .60 

17.70 

1 

2 5 

— 

787.70 

15.70 

15  .70 

.20 

3.11 

3 C .40 

16.26 

9.5C 

9.8  5 

2c 

— 

786.50 

15  .70 

15.70 

.09 

3.11 

30  .20 

16.26 

9 .60 

9.84 

< 7 

— 

780.30 

15.90 

15. 9C 

.19 

3.12 

2tt  .60 

24.70 

1 C .CC 

15.14 

2 o 

— 

738.00 

15 .60 

15.90 

. 16 

3.11 

31.10 

2 7 . 1 C 

5 . 6 C 

19 . 7 C 

29 

— 

770.40 

16.10 

16.10 

.24 

3.12 

24  .90 

9.72 

9. 60 

6 . 6 C 

• 

30 

— 

7 b4 .60 

16.20 

16.20 

.14 

3.13 

22  .70 

35  .50 

8 .50 

23.40 

?l 

— 

760.40 

16.20 

16.20 

.08 

3.13 

23  .70 

3C  .2  1 

3.27 

19.36 

3 2 

— 

770.00 

15.90 

16.30 

.15 

3.12 

24  .40 

26  .20 

9 .20 

18  .20 

r 3 

— 

755.00 

16.30 

16.80 

.10 

3.13 

23  .20 

27  .60 

9 .90 

18  .40 

1 

3 

— 

736.00 

16.80 

16 .90 

.0? 

3.13 

31.60 

2 5 . 6 C 

19  . CC 

25.20 

"a.  “ 

— 

703 .40 

17.60 

17.60 

. 1 2 

7.23 

31  .80 

26.34 

1 8 .CC 

2C  . 80 

1 

* c 



7 16 .00 

16.90 

17.70 

. 1 3 

7.10 

32  .90 

3?.6c 

18.60 

25  . 3 C 

• 

_■  7 

— 

6 o 5 . 7 0 

13.00 

18 .00 

. 1 2 

7.36 

26  .25 

?(  .25 

10.4? 

2 1.62 

• 

i c 

— 

6 82.50 

17.70 

18.60 

.24 

7.35 

26  .20 

3 1 . PC 

22.20 

25.60 

r 9 

— 

647.50 

18.60 

1 9 . 7 C 

.04 

9.90 

25  .30 

25  .00 

2 1 .CC 

20. 7C 

*•0 

— 

629.73 

19.70 

19  .80 

1.79 

10.06 

23  .85 

23.20 

25  .85 

ip.ec 

*1 

— 

6G9  .85 

20.30 

20.30 

.55 

lC.lo 

26.13 

23.10 

2 6.1? 

18.64 

4 2 

— 

615.00 

19.70 

20.70 

.02 

1C.  1 1 

25  .86 

23.16 
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1 8 . 7 C 

43 

— 

599.6C 

21 .20 
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. 1 fc 

1C  .20 

26  .62 
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2 6.t2 

23.11 

4v, 

— 

584.33 

21  .20 

21.20 

1.3  1 

1C. 24 

22  .01 

2 3.11 

22  .0  1 

23.11 

4 3 

— 

554.51 

22  . 30 

22  .30 

.74 

1C. 2-4 

25  .56 

2 4 .7*, 

25.56 

2 4.74 

* 4 c 

— 

537.03 

23.00 

23.00 

. 1 2 

1C. 20 

25  .20 

c 5 .30 

25  .20 

25.3c 

4 7 

— 

5 0 7.«;0 

24.40 

24  .40 

. 1 4 

10.0b 
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u 2 

— 
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10.00 

22  .05 
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t ^ 7 
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.41 

10.04 

22 .73 

22  .64 

22.7? 

22  .64 

1 
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— 
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27.00 
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